' Documentet der skal hentes er 'SpawnedMailerAdd.asp'
Hvor kan jeg sætte: <a href="dinside.html#top"></a>????
her er filen!
<% Dim eAddy eAddy = Request.Form("eaddy") response.write( eAddy )
if eAddy = "" then response.write("Gå venligst tilbage og skriv din e-mail adresse.")
else
If InStr(1,eAddy,"@",vbTextCompare) = 0 then
response.write(" Dette er ikke en korekt e-mail adresse, prøv venligst igen!")
else
set conn=Server.CreateObject("ADODB.Connection") conn.Provider="Microsoft.Jet.OLEDB.4.0" conn.Open(Server.Mappath("../../db/SpawnedMailer.mdb"))
set rsMail = Server.CreateObject("ADODB.recordset") rsMail.Open "SELECT * FROM MailingList WHERE MailingAddy='" & eAddy & "'", conn
If not rsMail.EOF Then If rsMail("MailingAddy") = eAddy Then
response.write(" Denne e-mail adresse eksistere allerede, prøv en anden!.")
End if
Else
mailSQL = "INSERT into MailingList (MailingAddy) VALUES ('" & eAddy & "');" conn.Execute mailSQL response.write(" E-mail adresse en nu blevet tilføjet!") End if
if eAddy = "" then response.write("Gå venligst tilbage og skriv din e-mail adresse.")
else
If InStr(1,eAddy,"@",vbTextCompare) = 0 then
response.write(" Dette er ikke en korekt e-mail adresse, prøv venligst igen!")
else
set conn=Server.CreateObject("ADODB.Connection") conn.Provider="Microsoft.Jet.OLEDB.4.0" conn.Open(Server.Mappath("../../db/SpawnedMailer.mdb"))
set rsMail = Server.CreateObject("ADODB.recordset") rsMail.Open "SELECT * FROM MailingList WHERE MailingAddy='" & eAddy & "'", conn
If not rsMail.EOF Then If rsMail("MailingAddy") = eAddy Then
response.write(" Denne e-mail adresse eksistere allerede, prøv en anden!.")
End if
Else
mailSQL = "INSERT into MailingList (MailingAddy) VALUES ('" & eAddy & "');" conn.Execute mailSQL response.write(" E-mail adresse en nu blevet tilføjet!") End if
rsMail.close conn.close end if end if %> <br><br><br> </div> </td> </tr> </table> </td> <td height="1" width="3" nowrap background="../../billeder/sidemenu_right.gif"></td> </tr> <tr> <td valign="top" height="13" colspan="3" background="../../billeder/h_sidemenu_top_bund.gif"></td> </tr> </table>
Det er lidt underligt, for jeg kan ikke få det til at virke, men jeg må prøve at "bøvle" lidt med det selv!
Tak for hjælpen ellers
Random:)
Synes godt om
Ny brugerNybegynder
Din løsning...
Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.