Receive Mould of the Day To receive Mould of the Day fill
in the details.
<%
If request.form("submit")="submit" then
titlez = request.form("titiles")
fname = request.form("first_name")
lname = request.form("last_name")
e_mail = request.form("email")
compania = request.form("companie")
natione = request.form("nation")
nomen = titlez&" "&fname&" "&lname
Set rs=Server.createobject("adodb.recordset")
sql="select * from bulk_contacts"
rs.open sql,con,3,3
If not rs.eof then
If rs.state=1 then
rs.close
rs.open "select max(Sr_No) from bulk_contacts",con
Id = rs(0) + 1
Else
Id = 1001
End if
rs.close
sql="Insert into bulk_contacts values("&Id&",'"&titlez&"','"&fname&"','"&lname&"','"&e_mail&"','"&compania&"','"&natione&"')"
con.execute sql,n
If n<1 then
Response.Redirect "Message.asp?Msg=Error while updating the registration details.
Back"
Else
Response.Redirect "Message.asp?Msg="&nomen&" Your registration details has been updated."
End if
End if
End if
%>
