Varför?

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

Thompa__85Medlem sedan aug. 2002600 inlägg

27 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å? :r