Jag har en password reminder men har ett problem. Får detta felmess
Microsoft VBScript compilation error '800a0409'
Unterminated string constant
/forum/pword.asp, line 32
body = body & "Your Password id :- " & rs("M_Password") & vbCrLf"
-----------------------------------------------------------------^
Och detta är rad 32
body = body & "Your Password id :- " & rs("M_Password") & vbCrLf"
och detta är hela dokumentet. Det jag vill att den ska göra är att infoga personens löseord.
Hela sidan.
<!--#INCLUDE FILE="config.inc" -->
<!--#INCLUDE FILE="top.inc" -->
<%
email = Request.Form("email")
if Request.QueryString("mode") = "doit" then
set my_conn= Server.CreateObject("ADODB.Connection")
my_Conn.Open ConnString
Dim SmartMail
Set SmartMail = Server.CreateObject("aspSmartMail.SmartMail")
SmartMail.Server = "mail.medialabs.nu"
SmartMail.ServerPort = 25
SmartMail.ServerTimeOut = 40
SmartMail.Recipients.Add "" & email & "", "ditt namn"
SmartMail.Subject = "Ditt användarnamn & lösenord"
strSql = "Select M_name, M_Password, M_Email from members where M_Name = '"
strSql = strSql & Request.Form("Name") & "' and M_Email ='"
strSql = strSql & Request.Form("email") & "'"
set rs = my_conn.Execute (StrSql)
if rs.EOF or rs.BOF then
body = body & "Sorry The details you passed were unknown."
body = body & "Please register again at [url]http://medialabs.nu[/url]"
Else
body = body & "Your Password id :- " & rs("M_Password") & vbCrLf"
" & arende & "
End if
body = body & "tack för att du använder forumet..."
SmartMail.Body = "" & body & ""
SmartMail.ContentType = "text/html"
SmartMail.Charset = "iso-8859-1"
SmartMail.SendMail
on error resume next
rs.close
set rs=nothing
my_conn.Close
set my_conn = nothing
%>
<p align=center><font face="<% =DefaultFontFace %>" size=4>Password Reminder</p>
<p align=center><font face="<% =DefaultFontFace %>" size=2>You should receive an email any moment now!</p>
<%
Else
%>
<p align=center><font face="<% =DefaultFontFace %>" size=4>Password Reminder</p>
<form action="pword.asp?mode=doit" method="post">
<div align="center">
<TABLE background="" bgColor=#b0c4de border=1 borderColor=#000000 cellPadding=0
cellSpacing=0 width=70%>
<TBODY>
<TR>
<TD width=50%><FONT face="<% =DefaultFontFace %>" size=2>User Name </TD>
<TD width=50%><FONT face="<% =DefaultFontFace %>" size=3>
<INPUT name=Name size=30> </FONT></TD>
<TR>
<TD><FONT face="<% =DefaultFontFace %>" size=2>Email</TD>
<TD><FONT face="<% =DefaultFontFace %>" size=3>
<INPUT name=email size=30 type=password value=""></FONT></TD>
</TR>
<TD align=middle colSpan=2><INPUT name=submit1 type=submit value=Submit></TD></TR></TBODY></TABLE></FONT></TD></TR></TBODY></TABLE>
<P>_</P>
<%
End if
%>
</body>
</html>
EDIT: Pratade för fort, eftersom du fortsätter på raden under måste du skriva &_ (eller & _) för att VB ska veta att det fortsätter på nästa rad. Det ska du skriva efter ".
body = body & "Your Password id :- " & rs("M_Password") & vbCrLf &_
EDIT: Pratade för fort, eftersom du fortsätter på raden under måste du skriva &_ (eller & _) för att VB ska veta att det fortsätter på nästa rad. Det ska du skriva efter ".
body = body & "Your Password id :- " & rs("M_Password") & vbCrLf &_