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.