Varför?

8 svar · 223 visningar · startad av Thompa__85 27 nov. 2003

Thompa__85Medlem sedan aug. 2002600 inlägg

Trådstart27 nov. 2003 14:14#1

Hejsan!

Detta är min kod:

	Set objTS = objFSO.OpenTextFile(strPath, 2) ' ForWriting
			objTS.WriteLine "<u title=""IP: "& Request.Servervariables("REMOTE_ADDR") &"&#10;Skickat: "& Now() &"&#10;Status: "&request.form("status")&""">"&_
			Server.HTMLEncode(request.form("whichUser")) & "</u>: "& Server.HTMLEncode(request.form("whichVar")) &" Skickat: "& Now() &" 
			if intLines <15 then objTS.Write(strText) else objTS.Write("Chatten töms") 

			objTS.Close : Set objTS = Nothing
			Set objFSO = Nothing

Men detta felmeddelande får jag:

Microsoft VBScript compilation error '800a0409' 

Unterminated string constant 

/adde/star/2/chat/sendchat.asp, line 17 

Server.HTMLEncode(request.form("whichUser")) & "</u>: "& Server.HTMLEncode(request.form("whichVar")) &" Skickat: "& Now() &"
----------------------------------------------------------------------------------------------------------------------------^

Någon som vet varför?

SebbeMedlem sedan jan. 20032 285 inlägg

27 nov. 2003 14:20#2

Set objTS = objFSO.OpenTextFile(strPath, 2) ' ForWriting
			objTS.WriteLine "<u title=""IP: "& Request.Servervariables("REMOTE_ADDR") &"Skickat: "& Now() &"Status: "&request.form("status")&""">"&_
			Server.HTMLEncode(request.form("whichUser")) & "</u>: "& Server.HTMLEncode(request.form("whichVar")) &" Skickat: "& Now()
			if intLines <15 then objTS.Write(strText) else objTS.Write("Chatten töms") 

			objTS.Close : Set objTS = Nothing
			Set objFSO = Nothing

Thompa__85Medlem sedan aug. 2002600 inlägg

27 nov. 2003 14:23#3

Hmm. tack
men nu säger den så här:

Microsoft VBScript compilation error '800a0409' 

Unterminated string constant 

/adde/star/2/chat/sendchat.asp, line 16 

objTS.WriteLine "<u title=""IP: "& Request.Servervariables("REMOTE_ADDR") &"
----------------------------------------------------------------------------^

SebbeMedlem sedan jan. 20032 285 inlägg

27 nov. 2003 14:25#4

Kolla min redigering.

Thompa__85Medlem sedan aug. 2002600 inlägg

27 nov. 2003 14:32#5

aha tackar

Thompa__85Medlem sedan aug. 2002600 inlägg

27 nov. 2003 14:37#6

Men nu har jag klantat till det igen :/

Set objTS = objFSO.OpenTextFile(strPath, 2) ' ForWriting
			objTS.WriteLine "<u title=""IP: "& Request.Servervariables("REMOTE_ADDR") &"Skickat: "& Now() &"Status: "&request.form("status")&""">"&_
			Server.HTMLEncode(request.form("whichUser")) & "</u>: "& Server.HTMLEncode(request.form("whichVar")) &" "<font color=""#FFA200"">Skickat: "& Now() "</font>"
			if intLines <15 then objTS.Write(strText) else objTS.Write("Chatten töms") 

			objTS.Close : Set objTS = Nothing
			Set objFSO = Nothing

Fel:

Microsoft VBScript compilation error '800a0401' 

Expected end of statement 

/adde/star/2/chat/sendchat.asp, line 17 

Server.HTMLEncode(request.form("whichUser")) & "</u>: "& Server.HTMLEncode(request.form("whichVar")) &" "<font color=""#FFA200"">Skickat: "& Now() "</font>"
---------------------------------------------------------------------------------------------------------------^

Jesper TMedlem sedan nov. 20017 144 inlägg

27 nov. 2003 14:51#7

.....=""#FFA200"">Skickat: "& Now() &"</font>"
Se över ditt sätt att namnge rubriker.
Tänk dig att någon vill söka i rubriker efter "Unterminated string constant", och du har skrivit "varför?" så kommer det inte att bli lätt för den stackarn.

PalleMedlem sedan apr. 20003 174 inlägg

27 nov. 2003 14:57#8

Du har ett ->"<- för mycket samt ett ->&<- för lite..

[red]Server.HTMLEncode(request.form("whichUser")) &"</u>: "& Server.HTMLEncode(request.form("whichVar")) &"<font color=""#FFA200"">Skickat: "& Now() &"</font>"[/red]

Thompa__85Medlem sedan aug. 2002600 inlägg

27 nov. 2003 15:06#9

Jesper T skrev:

.....=""#FFA200"">Skickat: "& Now() &"</font>"
Se över ditt sätt att namnge rubriker.
Tänk dig att någon vill söka i rubriker efter "Unterminated string constant", och du har skrivit "varför?" så kommer det inte att bli lätt för den stackarn.

Men första felmeddelandet sa inte Unterminated string constant", så hur skulle jag kunna veta det då?