<!--#include virtual="inc/General.inc.asp"-->
<%
strName = Replace(Request("strName")&"","'","''")
strSex = Replace(Request("strSex")&"","'","''")
strOld = Replace(Request("strOld")&"","'","''")
strWork = Replace(Request("strWork")&"","'","''")
strXG = Replace(Request("strXG")&"","'","''")
strWhatWork = Replace(Request("strWhatWork")&"","'","''")
StrPhone = Replace(Request("StrPhone")&"","'","''")
StrEmail = Replace(Request("StrEmail")&"","'","''")
StrAddress = Replace(Request("StrAddress")&"","'","''")
StrZIPCode = Replace(Request("StrZIPCode")&"","'","''")
StrKs = Replace(Request("StrKs")&"","'","''")
StrFg = Replace(Request("StrFg")&"","'","''")
StrMemo = Replace(Request("StrMemo")&"","'","''")
strType = Replace(Request("strType")&"","'","''")
strFrom = Replace(Request("strFrom")&"","'","''")
if strName="" then
	ErrorInfo "请输入姓名！"
elseif strPhone="" then
	ErrorInfo "请输入电话！"
elseif strType="" then
	ErrorInfo "请输入设计类型！"
else
	conn.BeginTrans
	strsql = "insert into Online(strName,strSex,strOld,strWork,strXG,strWhatWork,StrPhone,StrEmail,StrAddress,StrZIPCode,StrKs,StrFg,StrMemo,strType,strFrom,IsNew,AddDateTime) values('" & strName & "','" & strSex & "','" & strOld & "','" & strWork & "','" & strXG & "','" & strWhatWork & "','" & StrPhone & "','" & StrEmail & "','" & StrAddress & "','" & StrZIPCode & "','" & StrKs & "','" & StrFg & "','" & StrMemo & "','" & strType & "','" & strFrom & "',1,'" & now & "')"
	conn.Execute strsql
	if conn.Errors.Count <> 0 then
		conn.RollbackTrans
		Response.Redirect "Infos.asp?id=2"
	else
		conn.CommitTrans
		Response.Redirect "Infos.asp?id=1"
	end if
end if
%>