Jump to content
Sign in to follow this  

database asp not working

Recommended Posts

this is the contact form pagea html document

<html><head><link rel = "stylesheet" Type="text/css" HREF = "style.css"><script language="vbscript">function check( )if len(document.form1.Name.value)=0 OR len(document.form1.City.value)=0 OR len(document.form1.comments.value)=0 then Msgbox("Please fll in all the fields because your opinion makes a lot of difference.") else form1.action="addrecord.asp" form1.submit ( ) end ifend function</script></head><body background="214j.gif" Alink = #000000 Vlink=#000000 Link = #000066><P id = "heading"> Contact Us<P> <P id="catch"> <span style=color:#F88017> Your wedding</span> <span style=color:#F88017> Your style.</span><span style=color:#E56717>Our expertise.</span></P><hr id="line" Align=Right Width=25%><hr id="line2" Align=Right Width=15%><h1 style="Font-Family:Chiller;Word-spacing:5;color:#FF0040">We are excited to speak to you! Fill in as many details to help us get to serve you better.<form Method="post" name="form1">Name : <input type = text maxlength=20 name="Name" size = 20><br><br>Fiance Name : <input type = text maxlength=20 name = "Fiance_name" size = 20><br><br><br>Function Date: <input type = Date/Time maxlength=20 name = "Funtion_Date" size = 20><br><br><br>Event: <select style="FONT-family:Lucida Sans name="Event"><option>------------</option><option>Engagement</option><option>Reception</option><option>Pre Wedding Party</option><option>Honeymoon</option><option>Other</option></select><br><br>E-Mail: <input type = memo maxlength=20 name = "E_mail" size = 20><br><br><br>Address: <input type = memo maxlength=20 name = "Add_1" size = 20><br><br>Address : <input type = memo maxlength=20 name = "Add_2" size = 20><br><br>City: <input type = text maxlength=20 name = "City" size = 20> <br><br> Pincode : <input type = Number maxlength=20 name = "Pincode" size = 20><br><br>Mobile Number:<input type = Number maxlength=20 name = "Mobile_no" size = 20><br><br><br>Comments:<textarea style="MARGIN-LEFT:100 ; Margin-Top-20" Wrap = "VIRTUAL" Rows=10 Cols=40 name="comments"></textarea><br><br><br>Would like to be contacted:      <br> <INPUT TYPE=radio name="yes" value="yes"> Yes      <input type =radio name="No" value="No"> No<p><P> <INPUT TYPE="BUTTON" VALUE="SUBMIT" onClick="check( )" ></h1> </form></body></html>

this is the page it is is getting directed to which is addrecord.asp

<%<script=runat server>Dim objConn, strConn, objRSset objConn = Server.CreateObject("ADODB.Connection")objConn.open"DSN=Data"set objRS=Server.CreateObject("ADODB.RecordSet")objRS.Open"Wedding_Planning_Website",objConn,2 ,2objRS.AddNewobjRS("Name")=Request.Form("Name")objRS("Fiance_name")=Request.Form("Fiance_name")objRS("Function_Date")=Request.Form("Function_Date")objRS("Event")=Request.Form ("Event")objRS("E_mail")=Request.Form("E_mail")objRS("Add_1")=Request.Form("Add_1")objRS("Add_2")=Request.Form("Add_2")objRS("City")=Request.Form("City")objRS("Pincode")=Request.Form("Pincode")objRS("Mobile_no")=Request.Form("Mobile_no")objRS("Comments")=Request.Form("Comments")objRS("Would_you_like_to_be_contacted")=Request.Form("Would_you_like_to_be_contacted")objRS.UpdateobjRS.CloseobjConn.CloseSet objRS=NothingSet objConn=Nothing


this is the area where the record is being displayeddim objConn, strConn, objRSset objConn=Server.CreateObject("ADODB.Connection")strconn="DSN=Data"set objRs = Server.CreateObject("ADODB.RecordSet")objRS.Open "Wedding_Planning_Website", objConn%>


</head><body Alink = "#000000" Vlink ="#000000" Link="3399CC"><P Id = "heading"> Wedding 'in' style<P><P id = "catch"><span style = color:#F88017> Your Wedding </span><span style = color :#F87217> Your style.</span><span style = color:#E56717> Our expertise.</span></p><hr id = "line" Align = Right Widtd = 25%><hr id = "line2" Align = Right Widtd = 15%><h2 style = "Font-Family:Orlando;Word-spacing:5; color:#000066">Views</h2><center><table Border=1 Cellspacing = 0 cellpadding =15 bordercolor = #CC6600><tr><TH><Font size = 5 face = "Calligrapher"> Name </TH><TH><Font size = 5 face = "Calligrapher"> Fiance_name </TH><TH><Font size = 5 face = "Calligrapher"> Function_Date </TH><TH><Font size = 5 face = "Calligrapher"> Event</TH><TH><Font size = 5 face = "Calligrapher"> E_mail </TH><TH><Font size = 5 face = "Calligrapher">Add_1 </TH><TH><Font size = 5 face = "Calligrapher">Add_2</TH><TH><Font size = 5 face = "Calligrapher"> City</TH><TH><Font size = 5 face = "Calligrapher"> Pincode</TH><TH><Font size = 5 face = "Calligrapher"> Mobile_no</TH><TH><Font size = 5 face = "Calligrapher"> Comments </TH><TH><Font size = 5 face = "Calligrapher">Would_ you_ like_ to_ be_ contacted </TH><% while not objRs.EOF %><tr><td> <Font size = 3 ><%objRs("Name")%>  </td><td> <Font size = 3 ><%objRs("Fiance_name")%>  </td><td> <Font size = 3 ><%objRs("Function_Date")%>  </td><td> <Font size = 3 ><%objRs("Event")%>  </td><td> <Font size = 3 ><%objRs("E_mail ")%>  </td><td> <Font size = 3 ><%objRs("Add_1")%>  </td><td> <Font size = 3 ><%objRs("Add_2")%>  </td><td> <Font size = 3 ><%objRs(" City")%>  </td><td> <Font size = 3 ><%objRs("Pincode")%>  </td><td> <Font size = 3 ><%objRs("Mobile_no")%>  </td><td> <Font size = 3 ><%objRs("Comments")%>  </td><td> <Font size = 3 ><%objRs("Would_ you_ like_ to_ be_ contacted")%>  </td></tr><%objRs.MoveNextWendobjRs.CloseobjConn.CloseSet objConn=NothingSet ObjRs = Nothing</table></script>%>



I need urgent help as the program is not working pls help

Share this post

Link to post
Share on other sites

What does "not working" mean? What does it actually do? What does it not do? Are you getting error messages?

Share this post

Link to post
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now
Sign in to follow this