Har fundet en løsning ... som kom til at se såd`N her id. !
<%
Const adOpenKeyset = 1
Const adLockOptimistic = 3
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "PROVIDER=MSDASQL;DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("db/tilmeld.mdb") & ";UID=admin;PWD=;"
Set rs = Server.CreateObject("ADODB.RecordSet")
strSQL = "Select * From vip"
rs.Open strSQL, Conn, adOpenKeyset, adLockOptimistic
rs.AddNew
rs("dato") = now()
rs("nick") = Request.form("nick")
rs("navn") = Request.form("navn")
rs("clan") = Request.form("clan")
rs("email") = Request.form("email")
rs("postnr") = Request.form("postnr")
rs("by") = Request.form("by")
rs("adresse") = Request.form("adresse")
rs("tlf") = Request.form("tlf")
rs("land") = Request.form("land")
rs("betalt") = Request.form("betalt")
rs("kon") = Request.form("kon")
rs("idnummer") = Request.form("idnummer")
Set Mailer = Server.CreateObject("SMTPsvg.Mailer")
Mailer.FromName = "Vipparty-agenten"
Mailer.FromAddress= "vipparty@t-o-f.dk"
Mailer.RemoteHost = "mail3.cliche.dk"
Mailer.AddRecipient "" & Request.Form("nick") & "", "" & Request.Form("email") & ""
Mailer.Subject = "VIPparty_2004-tilmelding"
Mailer.BodyText = "Hej " & Request.Form("nick") & "" & VbCrLf & "" & VbCrLf & "Tak for din tilmelding til VIPparty-2004, du har ID=" & Request.form("idnummer") & " som er vigtigt du notere på indbetalingskortet så vi kan se betalingen kommer fra dig." & VbCrLf & "Dvs at uanset om du bruger net-bank eller betaler i banken er det VIGTIGT at du skriver dit ID nr, ellers har vi ikke nogen chance for at se hvem der har betalt
" & VbCrLf & "" & VbCrLf & "reg:0270" & VbCrLf & "konto nr: 2240022772" & VbCrLf & "" & VbCrLf & "Bemærk at der kun er plads til 70 ppl denne gang, og husk venligst at kigge i din kalender inden du betaler, da vi kun under særlige omstændigheder betaler pengene tilbage. Så har du glemt oldemors føsdag, så det sq bare ærligt
)" & VbCrLf & "" & VbCrLf & "Ellers ser vi frem til at få en lige så forrygende fest som sidste gang!" & VbCrLf & "" & VbCrLf & "Har du spørgsmål, så kontakt mig på starleth@privat.dk eller på vipparty@t-o-f.dk" & VbCrLf & "tlf:43-62-66-43" & VbCrLf & "" & VbCrLf & "PARTYYYYYYYYYYY FFS!" & VbCrLf & "" & VbCrLf & "mvh" & VbCrLf & "Starleth"
if Mailer.SendMail then
Response.Write "Mailen er afsendt..."
else
Response.Write "Der skete en fejl: " & Mailer.Response
end if
rs.Update
rs.Close
Set rs = Nothing
Conn.Close
set Conn = Nothing
%>
Hvilket hotel bruger du og hvilke email komponenter har det?
Jeppe Johansen
Jeppesoftware@hotmail.com