Annonceindlæg fra Infor
03. december 2004 - 13:42
#2
Linie 100: objMail.From = strEmail Koden lyder: _______________________________________________________________________ <!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN"> <HTML> <HEAD> <TITLE>Jægerspris Motionscenter</TITLE> <META NAME="Description" CONTENT="Jægerspris Motionscenter"> <META NAME="Keywords" CONTENT="motion, motionscenter, jægerspris, jægerspris motionscenter, jørgen rose, jørgen gad"> <META NAME="Generator" CONTENT="Stone's WebWriter 3.5"> <meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1"> <STYLE type="text/css"> body , TD , p { color : #505a61; font-family : Verdana; font-size : 13px; } A:link { color : #505a61; } A:visited { color : #505a61; } A:active { color : #505a61; } A:hover { color : #505a61; } input, select, textarea { border:1px solid #000000; background-color:#FFFFFF; color:#000000 } body, td, p { color:#505A61; font-family: Verdana; font-size: 13px; color: ##505A61; scrollbar-arrow-color: #E1E1E1} .felt {font-family: Verdana; font-size: 13px; background-color:#FFFFFF; border: solid 1px #000000; color:#000000;} .knap {background-color:#FFFFFF; border: solid 1px #000000; color:#505A61; font-family:Arial; font-size: 13px;} A:link {color : #000000;text-decoration: none} A:visited {color : #000000;text-decoration: none} A:active {color : #000000;text-decoration: none} A:hover {color : #000000;text-decoration: none} BODY {margin:0px;} body, TD, p { color:#000000; font-family: Verdana; font-size: 13px;} </STYLE> <script language="javaScript" type="text/javascript"> function hfkrpop(){ hfkrwin = window.open('tak.htm', 'hfkr', 'width=220,height=100'); } </script> <% strEmail=request.form("ClientEmail") strName=request.form("ClientName") strQuery=request.form("ClientQry") strTlf=request.form("ClientTlf") Set objMail = Server.CreateObject( "CDONTS.NewMail" ) objMail.Importance = 1 objMail.To = "jorgen@jpr-motionscenter.dk" objMail.From = strEmail objMail.Subject = "Nyt spg. fra " & strName objMail.Body = "<HTML><BODY><B>Navn:</B><BR>" & strName & "<P><B>Telefonnummer:</B><BR>" & strTlf & "<P><B>Spørgsmål:</B><BR>" & strQuery & "</BODY></HTML>" objMail.Host = "smtp1.b-one.nu" objMail.Send Set objMail = Nothing %> </HEAD> <BODY BACKGROUND="gfx/background-pattern.gif"> <TABLE WIDTH="100%" BORDER="0" CELLSPACING="0" CELLPADDING="0" style="background-image:url('gfx/top-pattern.gif');"> <TR> <TD><A HREF="index.htm" onFocus="this.blur()"><IMG SRC="gfx/logo.gif" BORDER="0" WIDTH="130" HEIGHT="131" ALIGN="left" ALT=""></A> <CENTER><IMG SRC="gfx/head-site.gif" BORDER="0" WIDTH="600" HEIGHT="131" ALIGN="top" ALT=""></CENTER></TD> </TR> </TABLE> <BR> <TABLE WIDTH="251" BORDER="0" CELLSPACING="0" CELLPADDING="0" ALIGN="left"> <TR> <TD> <IMG SRC="gfx/menu.gif" BORDER="0" WIDTH="251" HEIGHT="200" ALT="" USEMAP="#menu"> <MAP NAME="menu"> <AREA SHAPE="rect" COORDS="78,4,219,23" HREF="aabningstider.htm" onFocus="this.blur()" ALT=""> <AREA SHAPE="rect" COORDS="75,34,181,53" HREF="traening.htm" onFocus="this.blur()" ALT=""> <AREA SHAPE="rect" COORDS="68,63,167,82" HREF="priser.htm" onFocus="this.blur()" ALT=""> <AREA SHAPE="rect" COORDS="62,93,181,114" HREF="personale.htm" onFocus="this.blur()" ALT=""> <AREA SHAPE="rect" COORDS="56,122,233,142" HREF="pensionist.htm" onFocus="this.blur()" ALT=""> <AREA SHAPE="rect" COORDS="46,151,168,171" HREF="faciliteter.htm" onFocus="this.blur()" ALT=""> <AREA SHAPE="rect" COORDS="37,181,143,202" HREF="kontakt.asp" onFocus="this.blur()" ALT=""> <AREA SHAPE="DEFAULT" HREF="aabningstider.htm" onFocus="this.blur()" ALT=""> </MAP> </TD> </TR> <TR> <TD><IMG SRC="gfx/billedboks6.gif" BORDER="0" WIDTH="251" HEIGHT="205" ALIGN="bottom" ALT=""> </TD> </TR> </TABLE> <BR> <IMG SRC="gfx/overskrift-kontakt.gif" BORDER="0" WIDTH="180" HEIGHT="38" ALIGN="bottom" ALT=""><BR> <TABLE WIDTH="65%" style="background-image:url('gfx/tablegif.gif');" BORDER="0" CELLSPACING="1" CELLPADDING="0"> <TR VALIGN="top"> <TD> <FORM ACTION="kontakt.asp" onsubmit="hfkrpop();" METHOD="POST"> <TABLE BORDER="0" WIDTH="100%" CELLSPACING="0" CELLPADDING="10" ALIGN="left" BGCOLOR="#FFFFFF"> <TR VALIGN="top"> <TD WIDTH="80%"> <BR> <TABLE BORDER="0" CELLSPACING="0" CELLPADDING="0" ALIGN="left"> <TR VALIGN="top"> <TD><IMG SRC="blankgif.gif" BORDER="0" WIDTH="60" HEIGHT="1" ALIGN="bottom" ALT=""></TD> <TD> <FORM ACTION="kontakt.asp" onsubmit="hfkrpop();" METHOD="POST"> <B>Navn:</B><BR> <INPUT CLASS="felt" TYPE=TEXT NAME="ClientName" VALUE="" SIZE="35"> <BR><BR> <TABLE BORDER="0" CELLPADDING="0" CELLSPACING="0"> <TR VALIGN="bottom"> <TD><B>Tlf:</B></TD> <TD> </TD> <TD><B>E-mail:</B></TD> </TR> <TR VALIGN="top"> <TD><INPUT CLASS="felt" TYPE=TEXT NAME="ClientTlf" VALUE="" MAXLENGTH="8" SIZE="8"></TD> <TD><IMG SRC="blankgif.gif" BORDER="0" WIDTH="35" HEIGHT="1" ALIGN="bottom" ALT=""></TD> <TD><INPUT CLASS="felt" TYPE=TEXT NAME="ClientEmail" VALUE="" SIZE="20"></TD> </TR> </TABLE> <BR> <B>Spørgsmål:</B> <BR><TEXTAREA CLASS="felt" NAME="ClientQry" COLS="35" ROWS="6"></TEXTAREA> <BR> <INPUT CLASS="knap" TYPE=SUBMIT VALUE="Send"> </FORM> </TD> <TABLE style="background-image:url('gfx/gensyn.gif');" BORDER="0" CELLSPACING="0" CELLPADDING="0" WIDTH="250"> <TR> <TD WIDTH="40"><IMG SRC="blankpixel.gif" BORDER="0" WIDTH="1" HEIGHT="260" ALIGN="bottom" ALT=""></TD> <TD> </TD> </TR> </TABLE> </TR> </TABLE> </TD> </TR> </TABLE> </TD> </TR> </TABLE> </BODY> </html>
03. december 2004 - 13:52
#3
Jeg kender ikke b-one og deres ASP, men kunne det ikke tænkes, og være en smule rimeligt, at man ikke kan sætte en afsender til den tomme streng, altså ingenting. Du sender mailen hver gang man kommer på siden, og ikke blot når man trykker på en knap med en besked, og dermed formentlig et udfyldt emailfelt. Du behøver ikke skyde skylden på b-one, når programmeringen er så dårlig. På den anden side kan der også være andet galt ;)
03. december 2004 - 13:55
#4
Prøv med: <% strEmail=request.form("ClientEmail") strName=request.form("ClientName") strQuery=request.form("ClientQry") strTlf=request.form("ClientTlf") if strEmail <> "" then Set objMail = Server.CreateObject( "CDONTS.NewMail" ) objMail.Importance = 1 objMail.To = "jorgen@jpr-motionscenter.dk" objMail.From = strEmail objMail.Subject = "Nyt spg. fra " & strName objMail.Body = "<HTML><BODY><B>Navn:</B><BR>" & strName & "<P><B>Telefonnummer:</B><BR>" & strTlf & "<P><B>Spørgsmål:</B><BR>" & strQuery & "</BODY></HTML>" objMail.Host = "smtp1.b-one.nu" objMail.Send Set objMail = Nothing end if %>
03. december 2004 - 14:24
#6
ericjacobsen... jeg er bestemt ikke nogen ekspert til asp, så jeg tror faktisk at jeg fik dette asp-kode stykke på B-one engang. Det er jo derfor der undrer mig at det pludselig ikke virker. Men jeg giver ikke B-one skylden, prøver mere at finde en løsning på det standpunkt jeg har nu - er skam ganske tilfreds med B-one :-) jacand... det ser ud til at din løsning virker. takker mange gange. smider du lige et svar...? Men tak for jeres indlæg allesammen.