Er der en ASP-EKSPERT som vil hjælpe mig.

Måske kan jeg hjælpe, lover dog ikke noget.

Start med dit jmail problem, eller login problem.

jansangill>> jeg er på eksperten iaften efter kl. 23.00.

jeg har dette script som sender oplysninger til en database, jeg vil gerne have den sender mig en jmail samtidgt. Men det gør den ikke.

<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<!-- #include file="databaseforbindelse.asp" -->
<%
' Declaring variables
Dim name, email, country, comments, data_source, con, sql_insert

' A Function to check if some field entered by user is empty
Function ChkString(string)
  If string = "" Then string = " "
  ChkString = Replace(string, "'", "''")
End Function

' Receiving values from Form
navn = ChkString(Request.Form("navn"))
adresse = ChkString(Request.Form("adresse"))
postnr = ChkString(Request.Form("postnr"))
city = ChkString(Request.Form("city"))
tlf = ChkString(Request.Form("tlf"))
mobil = ChkString(Request.Form("mobil"))
email = ChkString(Request.Form("email"))
web = ChkString(Request.Form("web"))
sted = ChkString(Request.Form("sted"))
lp = ChkString(Request.Form("lp"))
nyd = ChkString(Request.Form("nyd"))
username = ChkString(Request.Form("username"))
passw = ChkString(Request.Form("passw"))
tekst = ChkString(Request.Form("tekst"))
data_source = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & Server.MapPath("db/adpd.mdb")
sql_insert = "INSERT INTO dpinfo (navn, adresse, postnr, city, tlf, mobil, email, web, sted, lp, nyd, username, passw, pic1, pic2, pic3, tekst, transfer) " & "VALUES ('" & navn & "','" & adresse & "','" & postnr & "','" & city & "','" & tlf & "','" & mobil & "','" & email & "','" & web & "','" & sted & "','" & lp & "','" & nyd & "','" & username & "','" & passw & "','" & Request.Form("pic1") & "','" & Request.Form("pic2") & "','" & Request.Form("pic3") & "','" & tekst & "','" & Request.Form("transfer") & "')"' Creating Connection Object and opening the database
Set con = Server.CreateObject("ADODB.Connection")
con.Open data_source
con.Execute sql_insert


Tekst = "Her er oplysninger<br>" & vbcrlf
Tekst = Tekst & "Navn: " & navn & "<br />"
Tekst = Tekst & "Adresse: " & Adresse & "<br />"
Tekst = Tekst & "Postnr: " & Postnr & "<br />"
Tekst = Tekst & "By: " & City & "<br />"
Tekst = Tekst & "E-mail: " & email & "<br />"

call sendMail("rmo@pc.dk","Remo TEST","rmo@pc.dk","REMO","localhost","Ny bruger oprettet",Tekst)

'Se funktionen længere nede kaldes med :    call sendMail(afsender,afsNavn,modtager,modtNavn,smtpserver,subject,body)

' Done. Close the connection
con.close

response.redirect "default.asp"


Function sendMail(afsender,afsNavn,modtager,modtNavn,smtpserver,subject,body)
'((((((((((((((((((((MAIL SENDES))))))))))))))))))))))))))
set msg = Server.CreateOBject( "JMail.Message" )
msg.ContentType = "text/html"
msg.Logging = true
msg.silent = true
msg.From = afsender'"no_reply@aars.dk"'Afsenderens_email
msg.FromName = afsNavn
msg.AddRecipient modtager
msg.Subject = Subject
msg.Body = replace(body,vbcrlf,"<br>")
if not msg.Send(smtpserver) then' mail.directedit.dk
  Response.Write("Der er desværre opstået en fejl!<br>Prøv venligst igen senere.<br><br>" & msg.log & "<hr>")
  Else
  Response.write "Der er nu blevet sendt en meddelelse til " & modtNavn & " (" & modtager & ").<br><br>" & Besked_tilmelding & "</font>"
end if
'((((((((((((((((((((MAIL SENDES SLUT))))))))))))))))))))))))))
end function




%>

lukker spørgsmålet, har opgivet projektet...