webForumDet fria alternativet

Alltså, vad fattas? Jag förstår inte

ASP

4 svar · 206 visningar · startad av medialabs

Medlem sedan mars 20023 686 inlägg
Frågan#1

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>
Medlem sedan aug. 20021 752 inlägg
#2

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 &_

/Viktor

Medlem sedan feb. 20012 412 inlägg
#3
body = body & "Your Password id :- " & rs("M_Password") & vbCrLf
Medlem sedan mars 20023 686 inlägg
#4

Viktor skrev:

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 &_

/Viktor

Tackar, nu funkar den som den ska.

Medlem sedan feb. 20012 412 inlägg
#5

Givetvis ska det vara en & _ på slutet, missade det i min kodsnutt. :(

260 ms totalt · 4 externa anrop · v20260731065814-full.6fe65c25
130 ms — deklarationer (db)
0 ms — hämta statistik (cache)
127 ms — hämta tråd, inlägg och bilagor (db)
125 ms — ändringar (db)