> Hej Lars
>
> Skulle der ikke stå Request.Form("navnet") i stedet for & navnet &.
>
> Mvh
> Martin Jørgensen
>
navnet er allerede i et array når mailen skal sendes
hele koden:
<%
Dim vnavn, enavn
inst=Request("inst")
vnavn=Request("vnavn")
antal=Request("antal")
enavn=Request("enavn")
enavnArray=Split(enavn, ",")
adr=Request("adr")
adrArray=Split(adr, ",")
pn=Request("pn")
pnArray=Split(pn, ",")
tlf=Request("tlf")
tlfArray=Split(tlf, ",")
mob=Request("mob")
mobArray=Split(mob, ",")
mail=Request("mail")
mailArray=Split(mail, ",")
prio1=Request("prio1")
prio1Array=Split(prio1, ",")
prio2=Request("prio2")
prio2Array=Split(prio2, ",")
For i = LBound(enavnArray) to UBound(enavnArray)
'Send bruger til fejlside hvis tilmeld.asp ikke er udfyldt korrekt.
If enavnArray(i) = " " Or enavnArray(i) = "" Or adrArray(i) = "" Or
adrArray(i) = " " Or pnArray(i) = "" Or pnArray(i) = " " Or tlfArray(i) = ""
Or tlfArray(i) = " " Or prio1Array(i)=prio2Array(i) Or prio1Array(i) = 0 Or
prio2Array(i) = 0 then
Response.Redirect("tilbage.asp?elev=" & i + 1)
End if
Next
For i = LBound(enavnArray) to UBound(enavnArray)
'Opsæt forbindelse til server og database
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" &
Server.MapPath("gym.mdb")
'indsætter oplysningerne fra tilmeld.asp i tabellen Tilmeldinger
sql = "INSERT INTO Tilmeldinger (inst, vnavn, enavn, adr, pn, tlf, mob,
mail, prio1, prio2) VALUES ('"
sql = sql & Trim(inst)
sql = sql & "', '" & Trim(vnavn)
sql = sql & "', '" & Trim(Replace(enavnArray(i), "'", "´"))
sql = sql & "', '" & Trim(Replace(adrArray(i), "'", "´"))
sql = sql & "', " & Trim(Replace(pnArray(i), "'", "´"))
sql = sql & ", '" & Trim(Replace(tlfArray(i), "'", "´"))
sql = sql & "', '" & Trim(Replace(mobArray(i), "'", "´"))
sql = sql & "', '" & Trim(Replace(mailArray(i), "'", "´"))
sql = sql & "', " & Trim(prio1Array(i))
sql = sql & ", " & Trim(prio2Array(i)) & ");"
Conn.Execute(sql)
Conn.Close
next
'Jmail koden
Set JMail = Server.CreateObject("JMail.SMTPMail")
' SMTP server
JMail.ServerAddress = "Mail.xxxxxx.dk:25"
' Hvem sender
JMail.Sender = "Brobygning"
JMail.Subject = "Tilmelding 2004"
JMail.AddRecipient "ih@xxxxx.dk"
JMail.Body = "Der er kommet " & antal & " tilmelding fra:" & VbCrLf &
"Institution: " & inst & VbCrLf & "Studievejleder: " & vnavn
JMail.AddHeader "Originating-IP", Request.ServerVariables("REMOTE_ADDR")
' 1 - highest priority (Urgent)
' 3 - normal
' 5 - lowest
JMail.Priority = 3
JMail.Execute
%>
|