hej lite krisit här... har en deadline idag!

o nu har cdonts fått nått konstigt fel:
<b>
Feltyp:
Serverobjekt, ASP 0177 (0x800401F3)
Ogiltig klassträng
/allterior/mall.asp, line 324
</b>

och så här ser det ut i rad 324:

<% Set myMail = Server.CreateObject("CDONTS.NewMail") '* rad 324*
myMail.MailFormat = 0
myMail.BodyFormat = 0
myMail.From = email
myMail.To = "hector@itsolutions.nu"
myMail.Subject = "Mail från:" & name  & ", Ärende:" & arande
myMail.Body = "<font face=verdana size=1 color=Navy><b>Från: </b>"&_
	name &  "<p><b>Företag: </b>" & company & "<p><b>Telefon: </b>" &_
	phone  &"<p><b>Email: </b>" & email &_
	"<p><b>Ärende: </b><br>" & arande & "<br>" & meddelande & "</font>"

Set myMail = nothing
end if %>

Finns CDONTS på servern???

Det enda som jag inte kunde hitta i din kod var
<code>
CDOMail.Send
</code>
...annars så har jag samma fundering som ovan, finns CDONTS installerat?

asså jag håller på i min egen server först för att testa det.... och det har funkat förut... där emot vet jag inte om server(webhotellet) har cdonts...

kan ni vara hyggliga och kolla vad jag kan ha missat, klistrar in hela kodsnutten som har att göra med mail funktionen

i head...

<%' Funktion som kontrollerar att värdet strNumber är siffra
Function IsDigits(strNumber)
With New RegExp
.Pattern = "^\d+$"
IsDigits = .Test(strNumber)
End With
End Function

' Kontrollerar om värden har skickats med!
arande = trim(request.form("arande"))
meddelande = trim(request.form("meddelande"))
name = trim(request.form("name"))
phone = trim(request.form("phone"))
company = trim(request.form("company"))
email= ucase(trim(request.form("email"))) 

send_mail=trim(request.form("send_mail"))

email_len=len(email)


if trim(email) <> "" then 									'Validering startar om värden har skickats med

for counter = 1 to email_len 								' Lopp som kollar om det finns @ eller .
if mid(email,counter,1)="@" then 

at_counter=at_counter+1
if at_counter > 1 then 
message = message & "<font size=1 face=verdana color=red>&raquo; Du har matat för många @ i din email. </font><br>" 
end if

if u_at = "" then
u_at=counter
end if 
end if 

if mid(email,counter,1)="." then 
if u_dot = "" then
u_dot=counter
end if 
end if 

next 

' Kollar om . kommer efter @ och att det är inte sista tecken

if (u_dot < u_at) or (len(email) <= u_dot+1) or ((u_dot-u_at) < 2) or (u_at < 2)then
message = message & "<font size=1 face=verdana color=red>&raquo; Din angivna email, verkar vara fel.<br></font>"
end if '

'Loopar igenom för att validera om det finns tecken som A-Ö,0-9
for counter=1 to len(email) 
if (mid(email,counter,1) <> "/") and ((mid(email,counter,1) > chr(45)) and (mid(email,counter,1) < chr(58))) or ((mid(email,counter,1) > chr(63)) and (mid(email,counter,1) < chr(91))) then
else
message = message & "Invalid charcter "& mid(email,counter,1)& " found in email address <br>"
end if  
next 
end if

if (arande < "1" ) and (send_mail <> "") then
message= message & "<font size=1 face=verdana color=red>&raquo; Välj ärende.</font><br>"
end if

if (meddelande = "") and (send_mail <> "") then
message = message & "<font size=1 face=verdana color=red>&raquo; Fyll i meddelande</font><br>"
end if

if (name = "") and (send_mail <> "") then
message= message & "<font size=1 face=verdana color=red>&raquo; Fyll i ditt namn</font><br>"
end if

'If not IsDigits(request.form("phone")) Then
'message= message & "<font size=1 face=verdana color=red>&raquo; Fyll i ditt nummer, enbart med siffror.</font><br>"
'elseif (phone = "") and (send_mail <> "") then
'message= message & "<font size=1 face=verdana color=red>&raquo; Fyll i ditt nummer</font><br>"
'end if

if (email = "") and (send_mail <> "") then
message= message & "<font size=1 face=verdana color=red>&raquo; Fyll i email</font><br>"
end if
'***************************************
if (phone = "") and (send_mail <> "") then
If not IsDigits(request.form("phone")) Then
message= message & "<font size=1 face=verdana color=red>&raquo; Fyll i ditt nummer, enbart med siffror.</font><br>"
elseif (phone = "") and (send_mail <> "") then
message= message & "<font size=1 face=verdana color=red>&raquo; Fyll i ditt nummer</font><br>"
end if
end if
'***************************************%>

<table width="780" border="0" bordercolor="blue">
<tr>
<form action="<%= request.servervariables("script_name") %>" method="post">
<td width="100"><strong>Namn: </strong></td>
<td align="left" width="260"><input class="inp" type="text" name="name" id="name" size="40" value="<%= lcase(name) %>"></td>
<td rowspan="8" valign="top">&nbsp;<br>
<%
if message <> "" or email = "" then
response.write message
%>
</td>
</tr>
<tr>
<td width="100"><strong>Ärende:</strong></td>
<td align="left" width="260">

<select name="arande" class="option">

<option value="0" SELECTED> - Välj Ärende -</option>
<option value="Badrum"<%if request.form("arande") > "Badrum" then%>selected<%end if%>>Badrum</option>
<option value="Kök"<%if request.form("arande") > "Kök" then%>selected<%end if%>>Kök</option>
<option value="Plattsättning">Plattsättning</option>
<option value="Golvläggning">Golvläggning</option>
<option value="Måleri">Måleri</option>
<option value="Snickeri">Snickeri</option>
<option value="Bygg">Bygg</option>
<option value="Övrigt">Övrigt</option>

</select>
</td>
</tr>
<tr>
<td valign="top" width="100"><strong>Text:</strong></td>
<td align="left" width="260"><textarea class="textcolor" cols=40 rows=6 name="meddelande" wrap="virtual" type="text" size="50" ><%= lcase(meddelande) %></textarea></td>
</tr>
<tr>
<td width="100"><strong>Telefon:</strong></td>
<td align="left" width="260"><input type="text" class="inp" name="phone" id="phone" size="20" value="<%= lcase(phone) %>"></td>
</tr>
<tr>
<td width="100"><strong>Mobil:</strong></td>
<td align="left" width="260"><input type="text" class="inp" name="mobil" id="mobil" size="20" value="<%= lcase(mobil) %>"></td>
</tr>
<tr>
<td width="100"><strong>Email:</strong></td>
<td align="left" width="260">
<% 
varValue = request.form("email")
if varValue = "" then
varValue= "@"
else
varValue = lcase(email)
end if

%>
<input type="text" class="inp" name="email" id="email" size="40" value="<%= varValue %>"></td>
</tr>
<tr>
<td width="300" colspan="2"><br><strong>Hur Önskar du bli kontaktad?</strong>
<br><br>
<input type="checkbox" name="via_email" value="via_email" class="radio">&nbsp; Via email.&nbsp;&nbsp;
<input type="checkbox" name="via_telefon" value="via_telefon" class="radio">&nbsp; Per telefon.
</td>
</tr>
<tr valign="top">
<td colspan="2" align="right">
<input type="hidden" name="send_mail" value="yes">
<input type="submit" value="Skicka" border="0" class="button" name="action">

</td>
</tr></form>
</table>
</td>
</tr>
<tr valign="bottom">
<td colspan="3" align="center">
<hr color="#BA0025" width="780" size="1px">
<b>Allteriör Bygg Golv & Kakel<br>
Tel / Fax: 08 - 767 66 25 Mobil: 070 - 757 66 25, info@allterior.se</b><br>
<font color="#808080" size="1">&copy;2005 Allteriör Bygg AB, website by Itsolutions.nu





<%
else
response.write "Tack för ditt mail, vi svarar så fort vi kan !!
Med vänliga hälsningar
Allteriör
" 
Response.write arande & "
"
Response.write meddelamde & "
"
Response.write name & "
"
Response.write phone & "
"
Response.write company & "
"
Response.write email & "
"
Response.AddHeader "Refresh", "10; mall.asp"

Set myMail = Server.CreateObject("CDONTS.NewMail")
myMail.MailFormat = 0
myMail.BodyFormat = 0
myMail.From = email
myMail.To = "hector@itsolutions.nu"

myMail.Subject = "Mail från:" & name  & ", Ärende:" & arande
myMail.Body = "Från: "&_
name &  "
Företag: " & company & "
Telefon: " &_
phone  &"
Email: " & email &_
"<p><b>Ärende: </b><br>" & arande & "<br>" & meddelande & "</font>"
myMail.send 
Set myMail = nothing
end if %>