Ämne: Mailformulär
Visa ett inlägg
Oläst 2007-05-21, 08:07 #10
rille77s avatar
rille77 rille77 är inte uppkopplad
Medlem
 
Reg.datum: Dec 2003
Inlägg: 213
rille77 rille77 är inte uppkopplad
Medlem
rille77s avatar
 
Reg.datum: Dec 2003
Inlägg: 213
Ett script med CDO, hoppas att det kan vara till hjälp

Kod:
<%
If Request.Form("action") = "send" Then
	Set objMail=CreateObject("CDO.Message")
	objMail.Subject=Request.Form("Subject")
	objMail.From=Request.Form("From")
	objMail.To="Din mailadress"
	objMail.TextBody=Request.Form("Text")
	objMail.Configuration.Fields.Item _
	("http://schemas.microsoft.com/cdo/configuration/sendusing")=2
	'Name or IP of remote SMTP server
	objMail.Configuration.Fields.Item _
	("http://schemas.microsoft.com/cdo/configuration/smtpserver") _
	="mail.server.com"
	'Server port
	objMail.Configuration.Fields.Item _
	("http://schemas.microsoft.com/cdo/configuration/smtpserverport") _
	=25 
	objMail.Configuration.Fields.Update
	objMail.Send
	set objMail=nothing
End If
%>
   	
   	

<form name="contact" id="contact" method="post" action="contact.asp?action=send" onsubmit="document.contact.submit.disabled='true';">
<p>
	<label for="From">E-postadress</label>
	<input type="text" name="From" id="From" /> 
	<label for="Subject">Ämne</label>
	<input type="text" name="Subject" id="Subject" />
	<label for="Text">Meddelande</label>
	<textarea name="Text" id="Text" cols="40" rows="15"></textarea>
</p>
<p>
	<input type="submit" value="Skicka" />
</p>
</form>
rille77 är inte uppkopplad   Svara med citatSvara med citat