ASP-kod på 404-felsida ?

Det saknas ett & för att lägga ihop strängarna:

strMessage = strMessage [b]&[/b] "The visitor typed the address in"

Mvh,

Ok, då funkar det så långt, men jag får fortfarande inget mail skickat ??

Har du med "To" då i mailkomponenten?

Hmm, nej. Men det står iofs objSMTP.AddRecipient("haddonfield-myers@excite.com")

Vad tror du?

Ja, där skall du skriva adressen till den som skall ha mailet.
Sedan måste du även ha rätt mailserver, har du det?
Ex. objSMTP.Send( "smtp.din_epostserver.se" )

Vad ska stå där? Ska det stå typ mail.excite.com eller nåt liknande. Ska det alltså vara servern för den e-postadress man får mailet till eller mailservern man skickar ifrån? Isådanafall måste jag fråga på webhotellet vad de har för mailserver eller?

Adressen till en server du kan skicka ifrån. Kontrollera med webhotellet.

Ok, jag får antagligen svar imorgon. Tack för hjälpen sålänge, behöver säkert mer hjälp ifall detta inte funkar.

Jag skulle lägga send-raden sist så funkar det, nu får jag ett mail men det står inga uppgifter i det, får bara ett subject, 404 Error Logged + att det står min mailadress samt namn som avsändare för mailet, men inget mer ?? :/ Jag vill ju ha uppgifter om vilken adress det handlar om också, alltså dessa rader.

' Log the offending page
    strPage = Request.ServerVariables("HTTP_URL")
    ' Log the referer
    strReferer = Request.ServerVariables("HTTP_REFERER")

Hela koden ser ut såhär nu ...

<% @language="vbscript" %>
<% Option Explicit %>
<%
    Dim strPage, strReferer, strMessage
    Dim objSMTP

    ' Log the offending page
    strPage = Request.ServerVariables("HTTP_URL")
    ' Log the referer
    strReferer = Request.ServerVariables("HTTP_REFERER")

    ' Set up the email component
    Set objSMTP = Server.CreateObject("JMail.Message")
    objSMTP.From = "haddonfield-myers@excite.com"
    objSMTP.FromName = "Andreas Carmblad"
    objSMTP.Subject = "404 Error Logged"
    objSMTP.AddRecipient("haddonfield-myers@excite.com")
    objSMTP.Send("smtp.i-net.nu")

    ' Write the message
    strMessage = "Requested page: " & strPage & vbCrLf & vbCrLf
    If strReferer <> "" Then
        strMessage = strMessage & "Referer: " & strReferer
    Else
        strMessage = strMessage & "The visitor typed the address in"
    End If

    objSMTP.Body = strMessage

    ' Tidy up
    objSMTP.ClearRecipients
    objSMTP.Close()
    Set objSMTP = Nothing
%>

Det löste sig, fattade inte att send måste ligga absolut sist för att koden skall fungera, send är ju det sista som utförs i koden och om det ligger något efter send så utförs inte det. Enkelt och där lärde jag mig lite om asp också.