hjælp til Jmail.
Jeg har dette asp script opretdp_ac.asp som sender data til min database.Nu vil jeg gerne have en Jmail funktion sat på, som fortæller mig at der er en ny bruger i databasen samt den viser Navn Adresse Postnr By og Email.
Hvem kan hjælpe mig??
******* opretdp_ac.asp ********
<!-- #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
' Done. Close the connection
response.redirect "default.asp" %>
