Advertisement
Advertisement
| 04.02.2008 at 03:15PM PDT, ID: 23291111 |
|
[x]
Attachment Details
|
||
1: 2: 3: 4: 5: 6: 7: 8: 9: 10: 11: 12: 13: 14: 15: 16: 17: 18: 19: 20: 21: 22: 23: 24: 25: 26: 27: 28: 29: 30: 31: 32: 33: 34: 35: 36: 37: |
<%
Dim studemail, studphone, studnewlast, studaddress, studcity, studstate, studzip, RSVP, RSVPNotes, dtchng, idstud, studfirname, studlasname, rsvpfirname, rsvplasname, sqllink2
studemail = Request.Form("email2")
studphone = Request.Form("phone2")
studnewlast = Request.Form("newlast")
studaddress = Request.Form("address2")
studcity = Request.Form("city2")
studstate = Request.Form("state2")
studzip = Request.Form("zip2")
RSVP = Request.Form("RSVP")
RSVPNotes = Request.Form("rsvp_notes")
dtchng = Request.Form("dt_chng")
idstud = Request.QueryString("studentid")
studfirname = Request.Form("stud_firname")
studlasname = Request.Form("stud_lasname")
rsvpfirname = Request.Form("rsvp_firstname")
rsvplasname = Request.Form("rsvp_lastname")
sqllink2 = "UPDATE Contact_Info SET Email ='" & studemail & "', Phone ='" & studphone & "', Address1 ='" & studaddress & "', City ='" & studcity & "', State ='" & studstate & "', Zip ='" & studzip & "', Married_Lastname ='" & studnewlast & "', Date_Updated = '" & dtchng & " WHERE person_id = " & idstud
set Update_ctinf = Server.CreateObject("ADODB.Command")
Update_ctinf.ActiveConnection = MM_Smart_Reunion_STRING
Update_ctinf.CommandText = sqllink2
Update_ctinf.CommandType = 1
Update_ctinf.CommandTimeout = 0
Update_ctinf.Prepared = true
Update_ctinf.Execute()
Response.Write(sqllink2) & "<br/>"
Response.Write("Step 1 passed<br/>")
%>
|