<% Function IsValidEmail(strEmail) Dim bIsValid bIsValid = True If Len(strEmail) < 5 Then bIsValid = False Else If Instr(1, strEmail, " ") <> 0 Then bIsValid = False Else If InStr(1, strEmail, "@", 1) < 2 Then bIsValid = False Else If InStrRev(strEmail, ".") < InStr(1, strEmail, "@", 1) + 2 Then bIsValid = False End If End If End If End If IsValidEmail = bIsValid End Function %> <% DBPath = "C:\usr\www\jewelleryhk.com\" strProvider = "Driver={Microsoft Access Driver (*.mdb)}; DBQ="& DBPath & "reg.mdb;" set objConn = server.createobject("ADODB.Connection") objConn.Open strProvider action=request.form("action") name=request.form("name") company=request.form("company") email=request.form("email") address=request.form("address") tel=request.form("tel") fax=request.form("fax") city=request.form("city") country=request.form("country") serial=request.form("serial") products=request.form("products") comment=request.form("comment") where=request.form("where") if IsValidEmail(email) then IF action = "Add" Then strSQL = "select * from reg" set rs = server.CreateObject("ADODB.RecordSet") rs.Open strSQL, strProvider , adopenstatic ,adlockoptimistic if name="" then name ="none" end if if company="" then company ="none" end if if email="" then email ="none" end if if address="" then address ="none" end if if tel="" then tel ="none" end if if fax="" then fax ="none" end if if city="" then city ="none" end if if country="" then country ="none" end if if serial="" then serial ="none" end if if products="" then products ="none" end if if comments="" then comment ="none" end if rs.addnew rs("name") = name rs("company") = company rs("email") = email rs("address") = address rs("tel") = tel rs("fax") = fax rs("city") = city rs("country") = country rs("serial") = serial rs("3d") = products rs("comment") = comment rs("date") = now() rs("where") = where rs.update rs.close 'response.write("Submit successfully. Thank you!") response.redirect "thanks.html" End if else if action = "Add" then response.write "Invalid Data ...Pls fill again!" end if %> Registration Card
Online Registration
Name :
Company :
Email :
Address :
Tel :
Fax :
City :
Country :
Serial No. :
What are the 3D products you are using ?
Comment of our product :
Where did you purchase : Double Technology Company
<% end if %>