6 svar · 231 visningar · startad av Jesper T
Skulle vilja radera en rad om vald epostadress finns, annars så skall den läggas till. (Nyhetsbrev)
Några tips?
Kör en select på adressen, kolla om den är .eof, då lägger du till adressen, annars tar du bort den. :)
Personligen vill jag vid nyhetsbrev bestämma själv om jag skall bli tillagd eller borttagen, dvs en knapp för varje alternativ. Då kan jag få meddelanden om att jag redan finns med eller inte finns med,
Dim rs As New RecordSet
Dim oConn As Connection
Dim strSQL, strMail
Set oConn = ' Den bör du veta...
strMail = ' Var det nu kommer från...
strSQL = "SELECT strEmail FROM tblNyhetsrbev WHERE strEmail = '" & strMail & "';"
rs.Open strSQL, oConn, adOpenForwardOnly, adLockReadOnly
If rs.EOF Then
strSQL = "INSERT INTO tblNyhetsBrev (strEMail) VALUES ('" & strMail & "');"
oConn.Execute strSQL, , adExecuteNoRecords
Else
strSQL = "DELETE * FROM tblNyhetsBrev WHERE strEMail = '" & strMail & "';"
oConn.Execute strSQL, , adExecuteNoRecords
End If
Set rs = Nothing
Jag vet inte riktigt hur du hämtar e-mailadressen, från formulär, querystring eller kanske från en annan tabell.
Tack för det!
Liten fråga:
Vad är skillnaden på:
Dim rs As New RecordSet
Dim oConn As Connection
och
Dim rs
Dim oConn
Jesper T skrev:
Liten fråga:
Vad är skillnaden på:
Dim rs As New RecordSet
Dim oConn As Connection
och
Dim rs
Dim oConn
Det första är för VB, det andra är för VBS. Du skall alltså använda det blåa för VBS/ASP.
Vide skrev:
Det första är för VB, det andra är för VBS. Du skall alltså använda det blåa för VBS/ASP.
En viss Engine^ som har problem att hålla isär begreppen för tillfället ;)