Hej allihopa..
Håller på med ett beställningsformulär...
När jag fyllt i allt och klickat på skicka står det på sidan att ett mail har skickats... Men jag får inget mail till inkorgen... mailen är tedde_2000@hotmail.com
Någon som kan förstå varför mailet inte skickas?
Inget bekräftelsemail skickas heller (som ska skickas).
Koden fungerade förut men inte nu, vet inte vad som är fel, blev så efter att jag lagt till lite kod...

---------------------------------------------------------------------------

<%

Dim btn
Dim fel
Dim errBuff

' -- utgår från att allt är rätt
fel = 0
tack = 0

' -- hämtar in parametrar
btn = Lcase(Request("btn"))

sokmotorreg = Trim(Request("sokmotorreg"))
lstlangd = Request("lsLangd")
metaoptimering = Trim(Request("metaoptimering"))
lstStatistikrapporter = Request("lsStatistikrapporter")
erbjudande = Trim(Request("erbjudande"))
foretag = Trim(Request("foretag"))
kontaktperson = Trim(Request("kontaktperson"))
adress = Trim(Request("adress"))
postnummer = Trim(Request("postnummer"))
ort = Trim(Request("ort"))
orgnr = Trim(Request("orgnr"))
telefon = Trim(Request("telefon"))
alttelefon = Trim(Request("alttelefon"))
fax = Trim(Request("fax"))
epost = Trim(Request("epost"))
hemsida = Trim(Request("hemsida"))
metoptord = Trim(Request("metaoptord"))
metaoptord_vi = Trim(Request("metaoptord_vi"))
metaoptbesk = Trim(Request("metaoptbesk"))
metaoptbesk_vi = Trim(Request("metaoptbesk_vi"))
kommentarer = Trim(Request("kommentarer"))
godkannande = Trim(Request("godkannande"))

autosvar = Request("autosvar")

' -- pekar ut vilken som är selekterad
strLangd = "<input type=radio name=lsLangd value=""1 år""> 1 år</input>" & vbCrLf & _
"<br><input type=radio name=lsLangd value=""2 år""> 2 år</input><br><br>" & vbCrLf

strLangd = Replace(strLangd, """" & lstLangd & """", """" & lstLangd & """ checked")

' -- skall vi kolla formuläret
If btn = "skicka" Then
fel = 0
tack = 1
errBuff = ""

if len(telefon) = 0 then
errBuff = errBuff & "<b>» </b><font color=#FF0000></b>Du har inte angett något telefonnummer<br></font>": fel = 1
end if


' -- skickar ett mail som bekräftelse till beställaren

Set CDONTSMail = Server.CreateObject("CDONTS.NewMail")
CDONTSMail.From = "tedde_2000@hotmail.com" ' från företaget
CDONTSMail.To = autosvar ' skall vara mottagarens adress
CDONTSMail.Subject = "Tack för din anmälan"
CDONTSMail.Body= "Vi har tagit emot din anmälan och kontaktar dig så fort vi kan, dock senast om 12 timmar." & vbCrLf & "/Searchit Sverige"
CDONTSMail.Send
set CDONTSMail=nothing

' -- skickar mail till företaget

bekraftelse = "Skickat: " & now() & vbCrLf & VbCrLf
bekraftelse = bekraftelse & "Sökmotorregistrering : " & sokmotorreg & vbCrLf
bekraftelse = bekraftelse & " » Längd : " & lstLangd & vbCrLf
bekraftelse = bekraftelse & "Metaoptimering : " & metaoptimering & vbCrLf
bekraftelse = bekraftelse & "Statistikrapporter : " & lstStatistikrapporter & vbCrLf
bekraftelse = bekraftelse & "Erbjudande : " & erbjudande & vbCrLf
bekraftelse = bekraftelse & "Företag : " & foretag & vbCrLf
bekraftelse = bekraftelse & "Kontaktperson : " & kontaktperson & " " & Postadress & vbCrLf
bekraftelse = bekraftelse & "Adress : " & adress & vbCrLf
bekraftelse = bekraftelse & "Postnummer : " & postnummer & vbCrLf
bekraftelse = bekraftelse & "Ort : " & ort & vbCrLf
bekraftelse = bekraftelse & "Org.nr : " & orgnr & vbCrLf
bekraftelse = bekraftelse & "Telefon : " & telefon & vbCrLf
bekraftelse = bekraftelse & "Alt.telefon : " & alttelefon & vbCrLf
bekraftelse = bekraftelse & "Fax : " & fax & " " & Postadress & vbCrLf
bekraftelse = bekraftelse & "E-post: : " & epost & vbCrLf
bekraftelse = bekraftelse & "Hemsida : " & hemsida & vbCrLf
bekraftelse = bekraftelse & "Metaoptimering (ord) : " & metaoptord & vbCrLf
bekraftelse = bekraftelse & " » Vi : " & metaoptord_vi & vbCrLf
bekraftelse = bekraftelse & "Metaoptimering (besk) : " & metaoptbesk & vbCrLf
bekraftelse = bekraftelse & " » Vi : " & metaoptbesk_vi & vbCrLf
bekraftelse = bekraftelse & "Kommentarer : " & kommentarer & vbCrLf
bekraftelse = bekraftelse & "Godkännde allämmna villkor : " & godkannande & vbCrLf
bekraftelse = bekraftelse & " " & vbCrLf

Set CDONTSMail = Server.CreateObject("CDONTS.NewMail")
CDONTSMail.From = epost ' från besökare
CDONTSMail.To = autosvar ' företagets inkorg
CDONTSMail.Subject = "Anmälningsblankett"
CDONTSMail.Body= Bekraftelse
CDONTSMail.Send

Else
Autosvar = "tedde_2000@hotmail.com"
End If

%>

<html>

<head>
<meta http-equiv="Content-Language" content="sv">
<meta http-equiv="Content-Type" content="text/html; charset=windows-1252">

<%if fel = 0 and tack = 1 then%>
<meta HTTP-EQUIV="Refresh" CONTENT="5;URL=bestalla.asp">
<%end if%>
<title>Intresseanmälan</title>
<style>
<!--
.text { font-family: Verdana; font-size: 10px }
.textruta { font-family: Verdana; font-size: 10px; position: relative; height: 19 }
.inputbox { font-family: Verdana; font-size: 10px; background-color: #F3F3ED;
background-repeat: repeat; background-attachment: scroll;
color: #000000; position: relative; height: 18;
border: 1px solid #000000; background-position: 0% }
-->
</style>
</head>

<body class="text">

<p><font size="5" color="#808080">Intresseanmälan</font></p>
<form method="POST" action="bestalla.asp">
<table border="0" width="635" class="text" cellspacing="1" cellpadding="0">
<tr>
<td width="629" align="right" colspan="4" bgcolor="#C0C0C0">
<p align="left"><img border="0" src="../bilder/pix.gif" width="1" height="1"></td>
</tr>

<%if fel = 0 and tack = 1 then%>
<tr>
<td width="159" align="right" nowrap><b>&nbsp; </b></td>
<td width="466" colspan="3">&nbsp; <br>
<b><font color="#808080"><font size="3">Tack för din anmälan</font><br>
</font></b>En bekräftelse på denna anmälan skickas nu till dig via
e-posten som du angav.&nbsp;<br>
Vi kontaktar dig så fort vi kan.<br>
<br>
Hälsningar<br>
Searchit Sverige<br>
&nbsp;&nbsp; </td>
</tr>

<%else%>

<tr>
<td width="159" align="right" nowrap></td>
<td width="466" colspan="3"><br>
<font size="4" color="#808080">Ange vad det är du är intresserad av</font><br>
Fyll i nedanstående formulär så kontaktar vi dig så fort vi fått
informationen<br>
&nbsp;&nbsp;</td>
</tr>

<%if fel > 0 then%>
<tr>
<td width="159" align="right" nowrap></td>
<td width="302" colspan="2"><b><font color="#FF0000">Följande fält är inte komplett
ifyllda!<br></font>
<%=errBuff%>
</font> </b><font color="#FF0000"><br>
&nbsp;&nbsp;</font></td>
<td width="160" valign="top"></td>
</tr>
<%end if%>
<table><tr>

<td width="159" bgcolor="#F1F1F1" height="42" align="left" nowrap>
<font color="#000000">Tjänster:&nbsp;</font></td>
<td width="302" colspan="2" bgcolor="#CCCCCC" height="42">
<input type=checkbox name=sokmotorreg value="Ja"> Sökmotorregistrering</input><br><%=strLangd%><input type=checkbox name=metaoptimering value="Ja"> Metaoptimering</input>
</td>
<td width="160" rowspan="12" valign="top"></td>
</tr>

<tr>
<td width="130" valign="top" bgcolor="#F1F1F1" height="56">Statistikrapporter:</td>
<td width="415" bgcolor="#CCCCCC" height="56">Vi vill ha statistikrapporterna e-postade till oss på:<br>
<input type=radio name=lang value=""svenska"" checked nowrap>Svenska</input>
<br><input type=radio name=lstStatistikrapporter value=""engelska""nowrap>Engelska</input></td>
</tr>
<tr id="tr_domain">
<td valign="top" bgcolor="#F1F1F1" height="127">
Erbjudande:</td>
<td bgcolor="#CC0000"><table width=100% border=0 cellspacing=0 cellpadding=10><tr><td><font color=white size=2>Sökmotorregistrering (1 år) inkl. Metaoptimering, 2695:-<br><br><br></font><font color=white>Ordinarie pris är 2995:- för Sökmotorreg. första året,<br> påföljande år 2495:- samt 995:- för Metaoptimering.</td></tr></table>
</td>
</tr><tr><td bgcolor=#F1F1F1></td><td bgcolor=#CCCCCC>
<input type=checkbox name=erbjudande value="Ja">Ja, jag vill ta del av erbjudandet!</input></td></Tr>
<tr>
<td colspan="2" bgcolor="#F1F1F1" height="16">Era uppgifter </td>
</tr>
<tr>
<td width="130" bgcolor="#F1F1F1" height="16">
Företag:</td>
<td width="415" bgcolor="#CCCCCC" height="16"> <strong>

<input name="foretag" value="<%=foretag%>" size="20"></strong> </td>
</tr>
<tr>
<td width="130" bgcolor="#F1F1F1" height="16">Kontaktperson
</td>
<td width="415" bgcolor="#CCCCCC" height="16"> <strong>
<input name="kontaktperson" value="<%=kontaktperson%>" size="20"></strong></td>
</tr>
<tr>
<td width="130" bgcolor="#F1F1F1" height="16">Adress:</td>
<td width="415" bgcolor="#CCCCCC" height="16"> <strong>

<input name="adress" value="<%=adress%>" size="20"></strong> </td>
</tr>
<tr>
<td width="130" bgcolor="#F1F1F1" height="16">Postnummer:
</td>
<td width="415" bgcolor="#CCCCCC" height="16"> <strong>
<input name="postnummer" value="<%=postnummer%>" size="20"></strong> </td>
</tr>
<tr>
<td width="130" bgcolor="#F1F1F1" height="16">Ort:</td>
<td width="415" bgcolor="#CCCCCC" height="16"> <strong>
<input name="ort" value="<%=ort%>" size="20"></strong> </td>
</tr>
<tr>
<td width="130" bgcolor="#F1F1F1" height="16">
Org.nr:</td>
<td width="415" bgcolor="#CCCCCC" height="16"> <strong>
<input name="orgnr" value="<%=orgnr%>" size="20"></strong> </td>
</tr>
<tr>
<td width="130" bgcolor="#F1F1F1" height="16">
Telefon:
</td>
<td width="415" bgcolor="#CCCCCC" height="16"> <strong>
<input name="telefon" value="<%=telefon%>" size="25"></strong> </td>
</tr>
<tr>
<td width="130" bgcolor="#F1F1F1" height="16">Alt. telefon:
</td>
<td width="415" bgcolor="#CCCCCC" height="16">
<strong><input name="alttelefon" value="<%=alttelefon%>" size="25"></strong> </td>
</tr>
<tr>
<td width="130" bgcolor="#F1F1F1" height="16">Fax:
</td>
<td width="415" bgcolor="#CCCCCC" height="16"> <strong>
<input name="fax" value="<%=fax%>" size="20"></strong> </td>
</tr>
<tr>
<td width="130" bgcolor="#F1F1F1" height="16">E-post:
</td>
<td width="415" bgcolor="#CCCCCC" height="16"> <strong>
<input name="epost" value="<%=epost%>" size="20"></strong> </td>
</tr>
<tr>
<td width="130" bgcolor="#F1F1F1" height="16">Hemsida:</td>
<td width="415" bgcolor="#CCCCCC" height="16"> <strong>

<input name="hemsida" value="<%=hemsida%>" size="20"></strong></td>
</tr>
<tr>
<td colspan="2" bgcolor="#F1F1F1" height="16">Uppgifter
gällande registreringen av er hemsida</td>
</tr> <tr>
<td width="130" bgcolor="#F1F1F1" height="16">Metaoptimering</td>
<td width="415" bgcolor="#CCCCCC" height="16">
Har ni valt tilläggstjänsten Metaoptimering behöver ni inte fylla
i uppgifterna nedan, det sköter vi</td>
</tr>
<tr>
<td width="130" bgcolor="#F1F1F1" height="16">
Kort beskrivning av er hemsida (syns vid sökning av er hemsida):</td>
<td width="415" bgcolor="#CCCCCC" height="16">
<textarea rows="3" name="metaoptbesk" cols="79"><%=metaoptbesk%></textarea> <br>
<input type="checkbox" name="metaoptbesk_vi" value="Ja"> Använd beskrivningen
som finns i META-taggarna på vår hemsida</td>
</tr>
<tr>
<td width="130" bgcolor="#F1F1F1" height="16">Ord som passar in på
er hemsida som ska användas vid registreringen av er hemsida:</td>
<td width="415" bgcolor="#CCCCCC" height="16">
<textarea rows="3" name="metaoptord" cols="79"><%=metaoptord%></textarea> <br>
<input type="checkbox" name="metaoptord_vi" value="Ja"> Använd orden som
finns i META-taggarna på vår hemsida</td>
</tr>

<tr>
<td height="13" colspan="2" bgcolor="#F1F1F1"> Kommentarer</td>
</tr>
<tr>
<td width="130" bgcolor="#F1F1F1" height="16">Ev. kommentarer:</td>
<td width="415" bgcolor="#CCCCCC" height="16"><textarea rows="3" name="kommentarer" cols="25"><%=kommentarer%></textarea></strong></td>
</tr>
<tr>
<td height="13" colspan="2" bgcolor="#F1F1F1">
Godkännande av våra Allmänna villkor</td>
</tr> <tr>
<td bgcolor="#F1F1F1" height="38">Allmänna
villkor: &nbsp;</td>
<td bgcolor="#CCCCCC" height="38">
<input type="checkbox" name="godkannande" value="Ja"> Jag har läst och godkänner era
Allmänna villkor.<br>
</td>
</tr>
<tr>
<td width="130" bgcolor="#F1F1F1" height="16">&nbsp;</td>
<td width="415" bgcolor="#F1F1F1" height="16">&nbsp;
</td>
</tr>
<tr>
<td width="130" bgcolor="#F1F1F1" bordercolor="#FF3300" height="18">&nbsp;</td>
<td width="415" bgcolor="#CCCCCC" height="18"><input type="submit" name="btn" value="Skicka">
</td>
</tr>
</table>


<%end if%>

</table>
</form>

</body>

</html>

Tobbe, det är inte intressant med hela koden, blir svårt att hitta träden för skogen, typ, hänger du med?

Det intressanta är om autosvar variabeln är korrekt, innehåller den en riktig epostadress??? Kan du testa att hårdsätta den till något, ex.vis. din hotmail adress.

Öhhh... vet inte om jag ser fel, men jag kan inte hitta FORM Field objektet "autosvar", därmed skulle Request("autosvar") returnera en tom sträng, f.ö. testar du inte om autosvar verkligen innehåller något innan du väljer att skicka ett mail till adressen, det är inte så smart enligt mig. Testa att variabeln inte är tom innan du väljer att skicka mailet.

If autosvar <> "" Then
oMail.Send
Else
Response.Write "Ni har inte matat in någon Epostadress, var vänlig försök igen."
End If