22. maj 2003 - 00:21
Der er
6 kommentarer og 2 løsninger
et link i en mail som gemmmer i db filen?
hej exp. jeg vil gerne have en der kan hjælp mig med at lave et script der ved to link i de mail jeg sender ud til folk kan klikke på for ja Tak eller nej til nyhedsbrev. 1. link skal skriver i db "ja" + mail-adressen 2. link skal skrive i db "nej" + mail-adressen håber i kan hjælp mig /rene
Annonceindlæg tema
Offentlig digitalisering
Fra effektivisering til digital suverænitet. Hvordan skaber det offentlige en digital fremtid med AI, sikkerhed og kontrol i centrum?
Mail: <a href="minside.dk/svar.asp?svar=True&id=*">Ja tak!</a> <a href="minside.dk/svar.asp?svar=False&id=*">Nej tak!</a> Svar.asp: <% Set Conn = Server.CreateObject("ADODB.Connection") Conn.open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("database.mdb") Set RS = Server.CreateObject("ADODB.Recordset") SQL = "Select * FROM tabel where id="& Request.QueryString("id") RS.Open SQL, Conn, 3, 3 If Not RS.EOF Then RS.Update RS("nyhedsbrev") = Request.QueryString("svar") 'nyhedsbrev sættes til True/False i databasen. RS.Update End If %> * = ID som bliver sendt med i mailen. Fx session("BrugerensID") Håber det er svar nok.
der skal også være mail med i den
<% Dim objMail Set objMail = Server.CreateObject("CDONTS.NewMail") objMail.From = "AFSENDER" objMail.Subject = "EMNE" objMail.To = "MODTAGER" objMail.Body = "<a href="minside.dk/svar.asp?svar=True&id=<%=session("brugerensid")%>">Ja tak!</a><br><a href="minside.dk/svar.asp?svar=False&id=<%=session("brugerensid")%>">Nej tak!</a>" objMail.Send set objMail = nothing %>
den skal ikke sende en mail den gemmer ja eller nej og mailadressen i db-filen nyhedsbrev
den skal ikke sende en mail den skal gemmer ja eller nej og mailadressen i db-filen "nyhedsbrev" rettets
<a href="minside.dk/svar.asp?svar=True&id=*&mail=*">Ja tak!</a> <a href="minside.dk/svar.asp?svar=False&id=*&mail=*">Nej tak!</a> Svar.asp: <% Set Conn = Server.CreateObject("ADODB.Connection") Conn.open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("database.mdb") Set RS = Server.CreateObject("ADODB.Recordset") SQL = "Select * FROM tabel where id="& Request.QueryString("id") RS.Open SQL, Conn, 3, 3 If Not RS.EOF Then RS.Update RS("nyhedsbrev") = Request.QueryString("svar") 'nyhedsbrev sættes til True/False i databasen. RS("Mailadresse") = Request.QueryString("mail") RS.Update End If %>
Du har MANGE gamle spørgsmål, der stadig er åbne. Hvorfor lukker du dem ikke, fremfor bare at oprette nye?
04. januar 2004 - 07:11
#8
lukket
Kurser inden for grundlæggende programmering