<!--#include file="../Include/Conno.asp" --><!--#include file="../Include/function.asp" --><!--#include file="../Include/ShowPage.asp" --><!--#include file="../sql/Neeao_SqlIn.Asp" -->
<%if request("action")="Insert" then

 if Trim(Request.form("txtCheckCode"))<>CStr(session("CheckCode")) then
   response.write "<script language=javascript>alert('确认码不正确，请重新免费登陆您的企业！\n\n版权所有: ');this.location.href='/Info/Add.asp';</Script>"
   Response.end
 end if
  Set rs=Server.CreateObject("Adodb.RecordSet")
  mSql="Select * From info_mater where f_name='"&Trim(Request.Form("info_name"))&"'"
  rs.open mSql,conn,3,3
  if not rs.eof then
   response.write "<script language=javascript>alert('您输入的商家信息名称已经重复，请重新输入！');history.back();</Script>"
	Response.end
  end if
  rs.AddNew
  rs("F_name")=Trim(Request.Form("info_name"))
  rs("F_bigclassid")=Trim(Request.Form("langmu"))
  rs("F_smallclassid")=Trim(Request.Form("langmu2"))  
  rs("f_tel")=Trim(Request.Form("info_tel"))
  rs("f_image")=application("newsuploadpic")
  rs("F_city")=Trim(Request.Form("TypeID"))
  rs("F_link")=Trim(Request.Form("info_link"))
  rs("F_address")=Trim(Request.Form("info_address"))
  rs("F_fax")=Trim(Request.Form("info_fax"))
  rs("F_postcode")=Trim(Request.Form("info_post"))
  rs("F_email")=Trim(Request.Form("info_email"))
  rs("F_web")=Trim(Request.Form("info_http"))  
  rs("F_text")=Request.Form("txtContent")
  rs("F_regtime")=now()
  rs("F_on")=1
  rs.update
response.write "<script language=javascript>alert('您的信息己成功登陆,请等待我们工作同志的审核！');this.location.href='/Info/Add.asp';</Script>"
Response.end
End if
%>