<%@ Language=Vbscript %> <% ufint=request("ufint") id=request("id") if id="" then %>
<% if ufind<>"" then%> <% end if%>
Basic Information
Please fill the given information.

Username already exists
 
Name
Email
Telephone
Mobile
Address
Occupation
Region
District
Block
Patti
Village
City
Upload Photo
 
<% else 'if id is blank %> <% set ffound=server.createobject("scripting.filesystemobject") uptype=request.querystring("uptype") Dim objUpload Dim strFileName Dim strPath ' Instantiate Upload Class Set objUpload = New clsUpload ' Grab the file name strFileName = objUpload.Fields("File1").FileName 'response.write "strFileName" & strFileName &"
" name=objUpload.Fields("name").value city=objUpload.Fields("city").value email=objUpload.Fields("email").value address=objUpload.Fields("address").value occupation=objUpload.Fields("occupation").value telephone=objUpload.Fields("telephone").value mobile=objUpload.Fields("mobile").value region=objUpload.Fields("region").value district=objUpload.Fields("district").value Patti=objUpload.Fields("patti").value Block=objUpload.Fields("block").value Village=objUpload.Fields("village").value strPath = Server.MapPath("parvasi") & "\" & strFileName randomize m=(rnd*99999999)*1000000 tot=abs(mid(m,1,8)) str="select * from parvasi where formno='"& tot &"' and name='"&name &"'" 'response.write "str " & str &"
" set rs=con.execute(str) if not rs.eof then %> <% else if strFileName <> "" then if ffound.fileexists(Server.MapPath("parvasi") & "\" & strFileName) then %>

Image already exists, try again




<%response.end else ' Save the binary data to the file system objUpload("File1").SaveAs strPath str="insert into parvasi(formno,name,email,address,telephone,mobile,region,district,patti,block,village,city,pictname,pictapprove,approve,occupation) values('"&tot &"','"&name&"','"& email &"','"& address &"','"& telephone &"','"& mobile &"','"& region &"','"&district&"','"& patti&"','"& block &"','"& village &"','"& city &"','"& strFileName &"','N','N','"& occupation &"')" end if else str="insert into parvasi(formno,name,email,address,telephone,mobile,region,district,patti,block,village,city,pictapprove,approve,occupation) values('"&tot &"','"&name&"','"& email &"','"& address &"','"& telephone &"','"& mobile &"','"& region &"','"&district&"','"& patti&"','"& block &"','"& village &"','"& city &"','N','N','"& occupation &"')" end if set rs2=con.execute(str) 'response.write "str " & str &"
" %>
Do you want to add more record


Click here for more entry

<% end if 'coding for email ''code for email subject="Registration with uttaranchalshadi.com" message="Dear  "& name &"
"&_ "Thnak you for your registration with www.uttaranchalishadi.com on uttaranchali directory, you are now registered on uttaranchali directory with us for one year."&_ "

Support team
uttaranchalishadi.com" Set iMsg = CreateObject("CDO.Message") Set iConf = CreateObject("CDO.Configuration") Set Flds = iConf.Fields With Flds .Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 .Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "localhost" ' ** U COULD USE ANY REMOTE SMTP SERVER INSTEAD OF THE CURRENT SMTP SERVER** .Update End With With iMsg Set .Configuration = iConf .TO = email .From = "directory@uttaranchalishadi.com" .Subject=subject .HTMLBody=message '.TextBody=strTextMailBody ' ** COMMENT THE ABOVE LINE AND UNCOMMENT THIS LINE TO SEND PLAIN TEXT EMAILS ** .Send End With Set Flds = Nothing Set iMsg = Nothing Set iConf = Nothing Set iMsg = CreateObject("CDO.Message") Set iConf = CreateObject("CDO.Configuration") Set Flds = iConf.Fields With Flds .Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 .Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "localhost" ' ** U COULD USE ANY REMOTE SMTP SERVER INSTEAD OF THE CURRENT SMTP SERVER** .Update End With With iMsg Set .Configuration = iConf .TO = "directory@uttaranchalishadi.com" .From = email .Subject = subject .HTMLBody=message '.TextBody=strTextMailBody ' ** COMMENT THE ABOVE LINE AND UNCOMMENT THIS LINE TO SEND PLAIN TEXT EMAILS ** .Send End With Set Flds = Nothing Set iMsg = Nothing Set iConf = Nothing ''code for email end if %>