Aaaaa beotel? pa sto ne kazes... meni kad je to trebalo , da li su mi neki kod pa sam ga prepodesio... ovo doduse nije verovatno aspx, vec obican asp.. ali mozda nekome koristi:
Evo sadrzaja kontakt.asp
Code:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<%
od = "
[email protected]"
subjec = "Odje ide subject"
za = "
[email protected]"
If Request("Send") <> "" Then
Set objCDOSYSMail = Server.CreateObject("CDO.Message")
Set objCDOSYSCon = Server.CreateObject ("CDO.Configuration")
objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "194.106.162.202"
objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
objCDOSYSCon.Fields("http://schemas.microsoft.com/c...guration/smtpconnectiontimeout") = 60
objCDOSYSCon.Fields.Update
Set objCDOSYSMail.Configuration = objCDOSYSCon
objCDOSYSMail.From = od ' From address
objCDOSYSMail.To = za
objCDOSYSMail.Subject = subjec
sta = "Ovde ide iz form polja: "+Request("ime_polja1")+ chr(13)+chr(10)+ chr(13)+chr(10)
sta =sta+"polje 2: "+Request("ime_polja_2")+ chr(13)+chr(10)+ chr(13)+chr(10)
... itd itd... dok ne napravis sta ti treba, chr-ovi su za novi red.
objCDOSYSMail.TextBody = sta
strErr = ""
bSuccess = False
On Error Resume Next ' catch errors
objCDOSYSMail.Send ' send message
If Err <> 0 Then ' error occurred
strErr = Err.Description
else
bSuccess = True
End If
Set objCDOSYSMail = Nothing
Set objCDOSYSCon = Nothing
End If
%>
<!DOCTYPE HTML PUBLIC "-//IETF//DTD HTML//EN">
<html>
<head>
<title>naslov</title>
<body>
<% If strErr <> "" Then %>
<h3><FONT COLOR="#FF0000">Greska, sa kodom: <I><% = strErr %></I></FONT></h3>
<% End If %>
<% If bSuccess Then %>
<h3><FONT COLOR="#00A000">Vasa poruka je uspesno prosledjena!</FONT></h3>
<% End If %>
<FORM METHOD="POST" ACTION="kontakt.asp">
<INPUT maxLength=50 size=20 name=ime_prvog_polja_kako_ti_zelis_da_se_zove>
... itd itd...
<INPUT TYPE="SUBMIT" NAME="Send" VALUE="Posalji!">
</FORM>
</body>
</html>
Mozda nekome ovo bude korisno, mozda ne... meni je koristilo.
Kad sve ostalo zakaže, pročitaj uputstvo...