<% 'response.write server.mappath 'response.end ' ******************************************************************************* ' database connection file ' ******************************************************************************* ' OPEN DATABASE ' ************************************************************** Dim con ' ADO connection PathToDatabase="D:\Websites\www.adelnheba.com\database\adelh.mdb" ConOpenString = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & PathToDataBase Set con = Server.CreateObject("Adodb.Connection") con.open ConOpenString 'Con.open "DSN=dls" set rs=Server.CreateObject("Adodb.Recordset") ' **************************************************************************** ' SEND MAIL Sub sendmail(strFrom, strTo, strSubject, strBody) Dim objMail Set objMail = Server.CreateObject ("CDONTS.NewMail") objMail.BodyFormat = 0 objMail.MailFormat = 0 objMail.Send cStr(strFrom), cStr(strTo),cStr(strSubject),cStr(strBody) Set objMail = Nothing End Sub ' **************************************************************************** %>

Islamic Wedding

GuestBook

<% if request.Form("action")="add" then dim gbf_4 dim gbf_6 dim gbf_3 dim gbf_1 dim gbf_8 dim gbf_2 dim gbf_7 dim strn1 dim mess strn1=request.Form("gbf_7") mess=Replace(strn1,"'","''") set rs=server.createobject("ADODB.Recordset") rs.open "insert into guest_book(fname,lname,email,city,state,country,message,[date]) values('"&request.Form("gbf_4")&"','"&request.Form("gbf_6")&"','"&request.Form("gbf_3")&"','"&request.Form("gbf_1")&"','"&request.Form("gbf_8")&"','"&request.Form("gbf_2")&"','"&mess&"',now())",con response.write"Your Views have been recorded. Thanks" end if %>

Heba Almasri & Adel Saad

Sign guest book

<% sql="SELECT * from guest_book ORDER BY DATE" set rs=server.createobject("ADODB.Recordset") rs.open sql,con,3,3 if rs.eof =false then do while rs.eof = false %> <% rs.movenext loop end if %>

	<%response.write rs("fname")%> <%response.write rs("lname")%> - <%response.write rs("city")%>, <%response.write rs("state")%>	<%response.write rs("date")%>
	<%response.write rs("message")%>