---
title: "Expected Identifier"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/135649-expected-identifier"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "WebbisNet"
published: "2005-10-12T19:07:40.000Z"
updated: "2005-10-14T12:27:58.000Z"
replies: 18
views: 765
page: 1
pages: 1
language: "sv-SE"
site: "webForum — webforum.nu"
rights: "Upphovsrätten till varje inlägg tillhör dess författare."
attribution: "Citera som: webForum, https://www.webforum.nu/amne/asp/135649-expected-identifier"
---

# Expected Identifier

## #1 — WebbisNet, 2005-10-12T19:07Z

i mitt pagingscript la jag till nr 5, private

username = arrRecords(0,I)
picture = arrRecords(1,I)
gbDate = arrRecords(2,I)
gbTime = arrRecords(3,I)
gbRead = arrRecords(4,I)
private = arrRecords(5,I)
gbMessage = arrRecords(6,I)
gbID = arrRecords(7,I)
Avatar = arrRecords(8,I)
userID = arrRecords(9,I)
vip = arrRecords(10,I)
mobil = arrRecords(11,I)

och får detta svar

Microsoft VBScript compilation error '800a03f2' 

Expected identifier 

/guestbook/GBcpaging.asp, line 142 

private = arrRecords(5,I)
\--------^

private finns med här, i sql-strängen och kolumnen finns i db

Permalänk: https://www.webforum.nu/p/135649

## #2 — @nders, 2005-10-12T19:14Z

Private är ett nyckelord i VBScript.
Byt namn på variabeln.

Använd gärna ungersk notation, så slipper du dylika problem.

Permalänk: https://www.webforum.nu/p/1686977

## #3 — WebbisNet, 2005-10-12T19:44Z

det gick bättre, visste inte hur man bytte namn så jag skapade en ny kolumn som heter pprivate

min sql är nu 
if request.form("chkPrivat") = "J" then
SQL = "update tblUsers_guestbook set Private=1 where toUser="&varToUser
objConn.Execute SQL
else
SQL1 = "update tblUsers_guestbook set Private=0 where toUser="&varToUser
objConn.Execute SQL1
end if

och den sparar en etta när man kryssar i rutan, men nedanstående visar inte meddelandet om det är en etta (att meddelandet är privat) utan visar bara gb-inlägget oavsett vad

	\<%if pprivate = 1 then%\>
			Meddelandet är privat och kan enbart läsas av mottagaren
			\<%else%\>
			\<%sText = replace(gbMessage,"\<","&nbsp;")
			sText = replace(gbMessage,"\>","&nbsp;")
			sText = replace(makeHtml(gbMessage),vbCrLf,"\<br\>")
			Response.Write sText%\>\<br\>
			\<%End if%\>

Permalänk: https://www.webforum.nu/p/1686996

## #4 — emission, 2005-10-12T21:18Z

> **WebbisNet skrev:**
>
> det gick bättre, visste inte hur man bytte namn så jag skapade en ny kolumn som heter pprivate

Det var bara variabeln du behövde byta namn på.

> **WebbisNet skrev:**
>
> min sql är nu 
> if request.form("chkPrivat") = "J" then
> SQL = "update tblUsers_guestbook set Private=1 where toUser="&varToUser
> objConn.Execute SQL
> else
> SQL1 = "update tblUsers_guestbook set Private=0 where toUser="&varToUser
> objConn.Execute SQL1
> end if

Bytte du namn på kolumnen så borde det återspeglas här.

Permalänk: https://www.webforum.nu/p/1687044

## #5 — WebbisNet, 2005-10-12T21:56Z

får det inte att stå at det är privat med koden
if request.form("chkPrivat") = "J" then
SQL = "update tblUsers_guestbook set pprivate=1 where gbID="&varGBID&""
objConn.Execute SQL
end if

(jag får med variabeln till GBID)

Permalänk: https://www.webforum.nu/p/1687050

## #6 — emission, 2005-10-12T22:25Z

Är det uppdateringen som misslyckas eller visningen?

Permalänk: https://www.webforum.nu/p/1687053

## #7 — WebbisNet, 2005-10-13T03:19Z

visningen

Permalänk: https://www.webforum.nu/p/1687070

## #8 — @nders, 2005-10-13T03:22Z

På vilket sätt funkar inte visningen då, och hur ser den (relevanta) koden ut?

Permalänk: https://www.webforum.nu/p/1687072

## #9 — WebbisNet, 2005-10-13T14:56Z

Det var visst att inget värde sparas i db och inte visningen, kan nån se felet här???

```
<%
Dim objConn, addPost
Dim varFromUser,varToUser,varGBDate,varIP, varMessage
Dim txtFromUser,txtToUser,txtGBDate,txtIP,txtAddMessage

varFromUser = FriendlySQL(Request.Form ("txtFromUser"))
varToUser = FriendlySQL(Request.Form ("txtToUser"))
varMessage = FriendlySQL(Request.Form ("txtAddMessage"))
varFran = FriendlySQL(Request.Form ("txtName"))
varAvatar = FriendlySQL(Request.Form ("txtAvatar"))
varGBDate = Date()
varGBTime = Time()
varIP = FriendlySQL(Request.Form ("txtIP"))
'varGBID = FriendlySQL(Request.Form ("txtGBID"))

	SET objConn = connect()
	addPost = "INSERT INTO tblUsers_guestbook"
	addPost = addPost & "([fromUser],[toUser],[gbMessage],[gbDate],[gbTime],[gbIP],[Avatar],[gbRead]) "
	addPost = addPost & "VALUES('"& varFromUser &"','"& varToUser &"','"& varMessage &"',#"& varGBDate &"#,'"& varGBTime &"','"& varIP &"','"& varAvatar &"',true)"

	'response.write addPost
	'response.end
	
if request.form("chkPrivat") = "J" then
varGBID = FriendlySQL(Request.Form ("txtGBID"))
SQL = "update tblUsers_guestbook set pprivate=1 where gbID="&varGBID&""
objConn.Execute SQL
else
SQL1 = "update tblUsers_guestbook set pprivate=0 where gbID="&varGBID&""
objConn.Execute SQL1
end if

objConn.Execute(addPost)
	response.redirect "/guestbook/GB.asp?toUser="&varToUser&"&name="&varFran&"&fromUser="&varFromUser&""
%>
```

Permalänk: https://www.webforum.nu/p/1687238

## #10 — emission, 2005-10-13T15:50Z

Så problemet är löst?

Permalänk: https://www.webforum.nu/p/1687251

## #11 — WebbisNet, 2005-10-13T15:55Z

visade baa koden, problemet är fortfarande olöst

Permalänk: https://www.webforum.nu/p/1687253

## #12 — WebbisNet, 2005-10-13T22:11Z

Ingen etta sätts i pprivate när rutan är markerad

```
varFromUser = FriendlySQL(Request.Form ("txtFromUser"))
varToUser = FriendlySQL(Request.Form ("txtToUser"))
varMessage = FriendlySQL(Request.Form ("txtAddMessage"))
varFran = FriendlySQL(Request.Form ("txtName"))
varAvatar = FriendlySQL(Request.Form ("txtAvatar"))
varGBDate = Date()
varGBTime = Time()
varIP = FriendlySQL(Request.Form ("txtIP"))

	SET objConn = connect()
	addPost = "INSERT INTO tblUsers_guestbook"
	addPost = addPost & "([fromUser],[toUser],[gbMessage],[gbDate],[gbTime],[gbIP],[Avatar],[gbRead]) "
	addPost = addPost & "VALUES('"& varFromUser &"','"& varToUser &"','"& varMessage &"',#"& varGBDate &"#,'"& varGBTime &"','"& varIP &"','"& varAvatar &"',true)"
	objConn.Execute(addPost)
	response.write addPost
	'response.end

[B]if request.form("chkPrivat") = "1" then
varGBID = FriendlySQL(Request.Form ("txtGBID"))
SQL = "update tblUsers_guestbook set pprivate=1 where gbID="& varGBID
objConn.Execute(SQL)
else
SQL = "update tblUsers_guestbook set pprivate=0 where gbID="& varGBID
objConn.Execute(SQL1)
end if[/B]
'response.write SQL 

response.redirect "/guestbook/GB.asp?toUser="&varToUser&"&name="&varFran&"&fromUser="&varFromUser&"&id="&varGBID&""
```

Permalänk: https://www.webforum.nu/p/1687455

## #13 — emission, 2005-10-13T22:20Z

Stoppa in ettan/nollan direkt i INSERT:en. Det blir onödigt att köra en UPDATE.

Red: Jag utgår från att det är inlägget som du stoppar in med INSERT som du också vill sätta "pprivate" på. Då måste du i princip göra som jag skrev ovan, eftersom du inte vet vilket id som inlägget har när du ska göra UPDATE:n

Permalänk: https://www.webforum.nu/p/1687459

## #14 — WebbisNet, 2005-10-13T22:32Z

jag kan inte sätta det direkt i inserten eftersom användaren bestämmer om det ska vara privat eller inte, ett värde där gäller ju ALLA kommande inlägg, har jag en etta där blir alla privata...inte så det är menat...därför har jag checkboxen som bestämmer värdet

eftersom senaste posten alltid är tom i db så finns åxå ett id så gbID är av typen räknare så det finns ett id

Permalänk: https://www.webforum.nu/p/1687465

## #15 — emission, 2005-10-13T23:39Z

> **WebbisNet skrev:**
>
> jag kan inte sätta det direkt i inserten eftersom användaren bestämmer om det ska vara privat eller inte, ett värde där gäller ju ALLA kommande inlägg, har jag en etta där blir alla privata...

Nu hänger jag inte med. INSERT:en stoppar väl bara in 1 inlägg, så varför skulle det påverka alla? 

> **WebbisNet skrev:**
>
> eftersom senaste posten alltid är tom i db så finns åxå ett id så gbID är av typen räknare så det finns ett id

Är senaste posten tom? Finns det en rad i tabellen innan inlägget skapats?

Permalänk: https://www.webforum.nu/p/1687473

## #16 — WebbisNet, 2005-10-14T03:57Z

Det påverkar alla genm att när en skriver så ligger det en etta i inserten och inlägget blir hemligt och när nästa skriver så ligger ettan kvar trots att de kanske inte vill att det ska vara det, samma med om man sätter en nolla.....jag vill ha valfriheten genom checkboxen

Permalänk: https://www.webforum.nu/p/1687482

## #17 — emission, 2005-10-14T08:01Z

> **WebbisNet skrev:**
>
> och när nästa skriver så ligger ettan kvar

Varför då?

Permalänk: https://www.webforum.nu/p/1687506

## #18 — WebbisNet, 2005-10-14T11:33Z

löste det så här

```
if request.form("chkPrivat") = varGBID then
SET objConn = connect()
	addPost = "INSERT INTO tblUsers_guestbook"
	addPost = addPost & "([fromUser],[toUser],[gbMessage],[gbDate],[gbTime],[gbIP],[Avatar],[gbRead], [pprivate]) "
	addPost = addPost & "VALUES('"& varFromUser &"','"& varToUser &"','"& varMessage &"',#"& varGBDate &"#,'"& varGBTime &"','"& varIP &"','"& varAvatar &"',true, true)"
	objConn.Execute(addPost)
	response.write addPost
	'response.end
else
SET objConn = connect()
	addPost = "INSERT INTO tblUsers_guestbook"
	addPost = addPost & "([fromUser],[toUser],[gbMessage],[gbDate],[gbTime],[gbIP],[Avatar],[gbRead], [pprivate]) "
	addPost = addPost & "VALUES('"& varFromUser &"','"& varToUser &"','"& varMessage &"',#"& varGBDate &"#,'"& varGBTime &"','"& varIP &"','"& varAvatar &"',true, false)"
	objConn.Execute(addPost)
	response.write addPost
	'response.end

end if
```

Permalänk: https://www.webforum.nu/p/1687600

## #19 — emission, 2005-10-14T12:27Z

Precis, det gick att lösa i INSERT:en. Är fortfarande inte med på allt, men om det funkar så funkar det.

Permalänk: https://www.webforum.nu/p/1687627

---

Tråden på webben: https://www.webforum.nu/amne/asp/135649-expected-identifier