nedre fra jmail til cdonts

mener du sådan her?:

http://www.devasp.com/Samples/mail.asp

Ja, men når jeg prøver får jeg bare denne meldingen:

There is a problem with the page you are trying to reach and it cannot be displayed.

er det når du klikker på linket at du får meldingen?

Nei, jeg har lagt til koden på siden min og jeg får det resultatet prøver å kjøre scriptet.

Det er egnetlig en gæstebog som skal sende email til meg når noen har lagt noget til i gæstebogen. Kanskje det er feil andre steder i scriptet for når jeg prøver ditt eksempel på en egen side da virker det.

Her er koden til hele siden, ser du noen feil?

<!-- #include file="db/database.asp" -->
<%

Sub GemCatData
    Dim strSQL
   
    strSQL = "INSERT INTO guestbook ("
    strSQL = strSQL & "Messages, "
    strSQL = strSQL & "Author, "
    strSQL = strSQL & "Email, "
    strSQL = strSQL & "HomePage, "
    strSQL = strSQL & "DatePosted"    
    strSQL = strSQL & ") VALUES ("
  strSQL = strSQL & "'" & Request.Form("Messages") & "', "
    strSQL = strSQL & "'" & Request.Form("Author") & "', "
    strSQL = strSQL & "'" & Request.Form("Email") & "', "
    strSQL = strSQL & "'" & Request.Form("HomePage") & "', "
    strSQL = strSQL & "'" & MakeDate(Now()) & "' "
    strSQL = strSQL & ")"
   
   
    objConn.Execute strSQL
   
   
    Response.Write "<meta http-equiv=""Refresh"" content=""3; URL=default.asp"">" & vbCrL
   
    Response.Write "Dit UnderMenu : " & Request.Form("Messages") & "&nbsp;er tilføje i GæsteBogen<br>" & vbCrLf
    Response.Write "<hr>" & vbCrLf
Response.Write "Du ryger tilbage til forsiden om 2 sec. " & "<br>" & vbCrLf
    Response.Write "<hr>" & vbCrLf
    %>
<%   
objConn.close
set objConn = nothing   

    %>
<%

Option Explicit

Dim objNewMail


Set objNewMail = Server.CreateObject("CDONTS.NewMail")




objNewMail.From = "mr8420@hotmail.com"
objNewMail.To  = "talma@online.no"



objNewMail.Subject = "This is a test Mail"
objNewMail.Body    = "This is the Body text of this test mail."
objNewMail.Send



Set objNewMail = Nothing



Response.Write "Email has been sent"

%>

prøv:



<% Option Explicit %>
<!-- #include file="db/database.asp" -->
<%

Sub GemCatData
    Dim strSQL
   
    strSQL = "INSERT INTO guestbook ("
    strSQL = strSQL & "Messages, "
    strSQL = strSQL & "Author, "
    strSQL = strSQL & "Email, "
    strSQL = strSQL & "HomePage, "
    strSQL = strSQL & "DatePosted"   
    strSQL = strSQL & ") VALUES ("
    strSQL = strSQL & "'" & Request.Form("Messages") & "', "
    strSQL = strSQL & "'" & Request.Form("Author") & "', "
    strSQL = strSQL & "'" & Request.Form("Email") & "', "
    strSQL = strSQL & "'" & Request.Form("HomePage") & "', "
    strSQL = strSQL & "'" & MakeDate(Now()) & "' "
    strSQL = strSQL & ")"

    objConn.Execute strSQL

objConn.close
set objConn = nothing

Dim objNewMail
Set objNewMail = Server.CreateObject("CDONTS.NewMail")

objNewMail.From = "mr8420@hotmail.com"
objNewMail.To  = "talma@online.no"

objNewMail.Subject = "This is a test Mail"
objNewMail.Body    = "This is the Body text of this test mail."
objNewMail.Send

Set objNewMail = Nothing

' din gæst behøver ikke at vide at mailen er sent til dig:
'Response.Write "Email has been sent"


    Response.Write "<meta http-equiv=""Refresh"" content=""3; URL=default.asp"">" & vbCrL
    Response.Write "Dit UnderMenu : " & Request.Form("Messages") & "&nbsp;er tilføje i GæsteBogen<br>" & vbCrLf
    Response.Write "<hr>" & vbCrLf
    Response.Write "Du ryger tilbage til forsiden om 2 sec. " & "<br>" & vbCrLf
    Response.Write "<hr>" & vbCrLf
%>

jeg la til end sub. i ditt scriptet og da virket det, mange takk for hjelpen!!

det var så lidt :)