Hej.
Nu har jeg kigget lidt på det (og søgt på nettet), og her er en kode i ASP, som skulle kunne gøre det du søger, og passe til dit webhotel. Koden har jeg "lånt", og ændre i, så den burde passe til dine indstillinger. filen skal hedde "sendmail.asp" og ligge i samme mappe som de andre dokumenter.
Jeg kan lidt bedre hjælpe dig, når vi anvender ASP, istedet for PHP, men lad os nu se hvor galt det går :-)
Her er ASP-filen:
<%
option explicit
'Felter der indgår i programmet:
'recipient: modtager af mail
'fromaddress: afsender
'subject: emne
'redirect: side som der sendes videre til (bruges kun hvis standardside ikke ønskes)
'return_link_url: returadresse på standardsvarside
'return_link_txt: tekst til returlink på standardsvarside
'order: rækkefølge af felter i mail. feltnavnene skrives i den rækkefølge de ønskes vis i mailen
'adskilt af , feltet bruges også til at skabe aliaser for feltnavne, f.eks hvis der er et felt "boern" der
'hvor der spørges på antallet af børn kan der i order skrives ,boern=Antal børn, så kommer der i mailen
'(og på svarsiden)til at stå "Antal børn:" i stedet for"boern:"
'bgcol: baggrundsfarve på standardsvarside
'mess: overskrift på på standardsvarside
'tit: titel på standardsvarside
'skip: spring tomme felter over (sættes til "TRUE" hvis tomme felter ikke skal med)
Dim felt, streng, JMail, sortorder, udstreng, udstreng2, feltarr, tael, rqfield, tempstr, skipfelt, tempstr2, lignummer, mserver, adrarr, adrcount
mserver="pop3.andersborg.com" 'sættes til din mailserver
skipfelt=Ucase(trim(request.form("skip")))
streng=""
sortorder=request.form("order")
while instr(sortorder," ,")>0
sortorder = Replace(sortorder," ,", ",")
wend
while instr(sortorder,", ")>0
sortorder = Replace(sortorder,", ", ",")
wend
while instr(sortorder," =")>0
sortorder = Replace(sortorder," =", "=")
wend
feltarr=split(sortorder,",")
udstreng =""
streng=""
for tael = 0 to ubound(feltarr)
lignummer = instr(feltarr(tael),"=")
if lignummer > 0 then
tempstr2 = right(feltarr(tael),len(feltarr(tael))-lignummer)
tempstr = left(feltarr(tael),lignummer-1)
else
tempstr2 = feltarr(tael)
tempstr = tempstr2
end if
tempstr = request.form(tempstr)
if tempstr<>"" or skipfelt <>"TRUE" then
udstreng = udstreng & "<TR VALIGN=""TOP""><TD><B>" & tempstr2&": </B></TD><TD>"& replace(tempstr,chr(13),"<BR>")&"</TD></TR>"&VbCrLf
streng = streng & tempstr2&": "& tempstr & VbCrLf
end if
next
rqfield = ",recipient,fromaddress,subject,redirect,return_link_url,return_link_txt,order,bgcol,mess,skip,tit,"
for each felt in Request.form
IF instr(1,","& sortorder & rqfield,","&felt&",", 1)=0 and instr(1,","& sortorder &"=",","&felt&"=", 1)=0 THEN
tempstr = request.form(felt)
if tempstr<>"" or skipfelt <>"TRUE" then
udstreng = udstreng & "<TR VALIGN=""TOP""><TD><B>" & felt&": </B></TD><TD>"& replace(tempstr,chr(13),"<BR>")&"</TD></TR>"&VbCrLf
streng = streng & felt&": "& tempstr & VbCrLf
end if
end if
next
Set JMail = Server.CreateObject("JMail.SMTPMail")
JMail.ServerAddress = mserver
JMail.Sender = request.form("fromaddress")
JMail.Subject = request.form("subject")
adrarr=split(replace(request.form("recipient"),";",","),",")
for adrcount=0 to ubound(adrarr)
JMail.AddRecipient trim(adrarr(adrcount))
next
'JMail.AddRecipient request.form("recipient")
JMail.Priority = 3
JMail.AddHeader "Originating-IP", Request.ServerVariables("REMOTE_ADDR")
' ********** Her starter selve email-en
JMail.Body = streng
' ********** Her slutter selve email-en
JMail.Execute
tempstr = trim(request.form("redirect"))
if tempstr <>"" then
Response.redirect tempstr
end if
dim bgcolor, return
return= "<A HREF="""&request.form("return_link_url")&""">"&request.form("return_link_txt")&"</A>"
bgcolor = trim(request.form("bgcol"))
IF bgcolor <>"" then
bgcolor = " BGCOLOR="&bgcolor
end if
%>
<HTML>
<HEAD>
<TITLE><%=request.form("tit")%></TITLE>
</HEAD>
<BODY<%=bgcolor%>>
<TABLE>
<TR><TD COLSPAN="2"><H2><%=request.form("mess")%></H2></TD></TR>
<%=UDSTRENG%>
<TR><TD COLSPAN="2"><%=return%></TD></TR>
</TABLE>
</BODY>
</HTML>
-------------------------------------------------------------------------------------
Du skal også ændre i selve formulare fra før, så den ser således ud:
<form name="form1" method="post" action="sendmail.asp">
Din e-amil adresse:
<input type="text" name="fromaddress"> Obligatorisk<BR>
Dit navn:
<input type="text" name="navn"> Obligatorisk<BR>
Besked:
<textarea cols="40" rows="8" name="subject"></textarea><BR>
<input type="submit" name="Submit" value="Send">
<input type="reset" name="Submit2" value="Fortryd">
<input type="hidden" name="recipient" value="mail@andersborg.com">
<input type="hidden" name="redirect" value="
http://www.andersborg.com/Hjemmeside/Sider/index-kontakt-tak.htm"><input type="hidden" name="subject" value="Mail fra hjemmesiden">
</form>
-------------------------------------------------------------------------------------
Prøv det, og lad mig hører fra dig.
mvh
Rene´