<%
If not isnumeric(request.form("productID")) Then
response.write"<script>alert('請確定您要選擇的產品型號！');history.back()</script>"
response.end
End If
response.buffer="true"
If request.form("user")="" Then
response.write"<script>alert('請填寫聯系人姓名！');history.back()</script>"
response.end
End If
If request.form("email")="" Then
response.write"<script>alert('請填寫您的電子郵件地址！');history.back()</script>"
response.end
End If
If not isnumeric(request.form("oicq")) Then
response.write"<script>alert('請輸入正確的OICQ號碼！');history.back()</script>"
response.end
End If
If request.form("corp")="" Then
response.write"<script>alert('請填寫您公司的名稱！');history.back()</script>"
response.end
End If
If request.form("tel")="" Then
response.write"<script>alert('請填寫您聯系電話！');history.back()</script>"
response.end
End If
If request.form("add")="" Then
response.write"<script>alert('請填寫您公司的地址！');history.back()</script>"
response.end
End If
If len(request.form("memo"))>500 Then
response.write"<script>alert('備注不能大于500字！');history.back()</script>"
response.end
End If
%>
<!--#include file="conn.asp"-->
<%
dim rs,sql
set rs=server.createobject("adodb.recordset")
sql="select * from cdb where (id is null)"
rs.open sql,conn,1,3
rs.addnew
rs("user")=request.form("user")
rs("email")=request.form("email")
rs("oicq")=request.form("oicq")
rs("corp")=request.form("corp")
rs("tel")=request.form("tel")
rs("url")=request.form("url")
rs("add")=request.form("add")
rs("memo")=request.form("memo")
rs("dt")=now()
rs("productID")=request.form("productID")
rs("ip")=request.ServerVariables("remote_addr")
rs.update
rs.close
set rs=nothing
conn.close
set conn=nothing
response.redirect"success.asp"
%>