Newbie needs help--I'm close, but still no cigar

Borg Vomit · Borg Vomit

I'm not a script guy, and this is kicking my ass:

I need to check the values of poll.htm against an MS Access DB and
then build a table so the poll taker can do a final review. After poll
taker approves the text values (the numaric values are placed in
hidden fields) will be stored in the data base (that code is not shown
below).

Issue 1:
pTitle & pAnswer should be the value from the db, pasted up from the
function.

I have no idea how to insert it using a document.write

Issue 2:
if i don't put the <% and %> down in the function I get: server
undefined.

if I do put them there I get:

Error Type:
Microsoft VBScript compilation (0x800A0401)
Expected end of statement
/PollingTry2/SurveyWork1.asp, line 144, column 96
var strCnxn = "Provider=Microsoft.Jet.OLEDB.4.0;Data
Source='C:\Inetpub\wwwroot\fpdb\poll.mdb';";
-----------------------------------------------------------------------------------------------^

I got the sample db code from MSDN and it should be javascript, but
the error message says VBScript.

So, I need to get set the variables down in function "ListValue". Or
should I use some kind of return method. How do I return 2 variables?

This is the code from my asp page. there's nothing in the header to
speak of.

<body>
<SCRIPT LANGUAGE="JavaScript" RUNAT="server">

<!--

var i, pos, argname, value, queryString, pairs,pAnswer, Q,pVal,
pTitle,CellBG,FontColor;

queryString = location.search.substring(1);

pairs = queryString.split("&");

//start the table

document.writeln('<table border="1" cellpadding="4" cellspacing="0"
style="border-collapse: collapse" bordercolor="#FBAE4A" width="67%"
id="AutoNumber2" height="313">');

//run through the values of the poll page

for (i = 0; i < pairs.length; i++)
{
pos = pairs[i].indexOf('=');
if (pos == -1)
{
continue;
}
argname = pairs[i].substring(0,pos);
value = pairs[i].substring(pos+1);

// argname is the name of the radio button
//value is the value of the radio button

switch (argname){
case 'QID1' : // Title: Question 1?

//go to the listvalue function and check the values against the db

ListValue(argname, value);

if (pAnswer ="None Selected") {
CellBG = '#000000';
FontColor = '#FF66FF';
} else {
CellBG = '#193789';
FontColor = '#00FF00';
}

document.writeln('<tr>');

//pTitle should be the value from the db *********

document.writeln('<td width= "83%" height= "40" bgcolor=
"CellBG">pTitle</td>');
document.writeln('<td width= "17%" height= "40" align= "center">');
document.writeln('<p align= "center"><b><font color= "FontColor">');

//pAnswer should be the value from the db ***********

document.writeln(pAnswer)

document.writeln('</font></b></td>');
document.writeln('<input type="hidden"name="QID" value= & pAnswer &

>');

document.writeln('</tr>');
break;

}

document.writeln("</table>");

function ListValue(Q,pVal)
{
// record variables
// var fld, filter
//var showBlank = " "
//dim showNull = "-NULL-"
Dim SQLPollValues

// connection and recordset variables
set Cnxn = Server.CreateObject("ADODB.Connection")
strCnxn = "Provider=Microsoft.Jet.OLEDB.4.0;Data
Source='C:\Inetpub\wwwroot\fpdb\poll.mdb';"
set rsPollValues = Server.CreateObject("ADODB.Recordset")
SQLPollValues = "SELECT * FROM Qry_Answers WHERE QID=" & Q & " AND
answer_id='" & pVal & "'"

//open connection
Cnxn.Open(strCnxn)

// create recordset client-side using object refs
rsPollValues.ActiveConnection = Cnxn
rsPollValues.CursorLocation = adUseClient
rsPollValues.CursorType = adOpenKeyset
rsPollValues.LockType = adLockOptimistic
rsPollValues.Source = SQLPollValues
rsPollValues.Open()

rsPollValues.MoveFirst()

if (rsPollValues.RecordCount = 0) then
Response.Write("No records matched ")
Response.Write (SQLPollValues + "So cannot make table...")
Cnxn.Close()
Response.End

else
if (Q = 9) then
pAnswer = rs.field("answer")
pTitle = rs.field("title")
else
pAnswer = rs.field("StateFullName")
pTitle = rs.field("title")

end if
end if

// Response.Write(e.message)

// finally

// clean up
if (rsPollValues.State = adStateOpen) then
rsPollValues.Close
end if

if (Cnxn.State = adStateOpen) then
Cnxn.Close
rsPollValues = null
Cnxn = null
end if

}
//-->
</script>
</body>

Ray at · Ray at

Delete that superfluous ; at the end of your connection string.

Ray at work

"Borg Vomit" <not_phrynicous@hotmail.com> wrote in message
news:ca4cf807.0309180940.73ab3de4@posting.google.c om...

>
> Error Type:
> Microsoft VBScript compilation (0x800A0401)
> Expected end of statement
> /PollingTry2/SurveyWork1.asp, line 144, column 96
> var strCnxn = "Provider=Microsoft.Jet.OLEDB.4.0;Data
> Source='C:\Inetpub\wwwroot\fpdb\poll.mdb';";
> --------------------------------------------------------------------------

---------------------^

>

Borg Vomit · Borg Vomit

"Ray at <%=sLocation%>" <myfirstname at lane34 dot com> wrote in message news:<e429dAhfDHA.2400@TK2MSFTNGP11.phx.gbl>...

> Delete that superfluous ; at the end of your connection string.
>
> Ray at work

Thanks Ray, but I still get:

Microsoft JScript runtime error: 'Server' is undefined

I admit I don't understand why some lines need ; and some don't. Is
there a difference between Jscript and javascript? I think I'm using
2 different scripts... i have no idea.

I think I'm going to try to use "queryString.split" etc in VBscript,
if I can't get what I have to work. At least it'll all be MS...
suggestions?

Mark Schupp · Mark Schupp

You are using JScript syntax in a VBScript page (note the error message says
"VBScript compilation").
Add <%@ LANGUAGE = JScript %> at the top of the page.

--
Mark Schupp
--
Head of Development
Integrity eLearning
Online Learning Solutions Provider
[email]mschupp@ielearning.com[/email]
[url]http://www.ielearning.com[/url]
714.637.9480 x17

"Ray at <%=sLocation%>" <myfirstname at lane34 dot com> wrote in message
news:e429dAhfDHA.2400@TK2MSFTNGP11.phx.gbl...

> Delete that superfluous ; at the end of your connection string.
>
> Ray at work
>
> "Borg Vomit" <not_phrynicous@hotmail.com> wrote in message
> news:ca4cf807.0309180940.73ab3de4@posting.google.c om...
>

> >
> > Error Type:
> > Microsoft VBScript compilation (0x800A0401)
> > Expected end of statement
> > /PollingTry2/SurveyWork1.asp, line 144, column 96
> > var strCnxn = "Provider=Microsoft.Jet.OLEDB.4.0;Data
> > Source='C:\Inetpub\wwwroot\fpdb\poll.mdb';";

>
> --------------------------------------------------------------------------
> ---------------------^

> >

>
>

MSFT · MSFT

Hi Borg,

I found you use both VBScrip and JavaScript in one page, the syntax of them
are not compatible. I suggest you may first clean up your code, adn only
use one language, for example, VBScript if you want the functions in it. Or
you can put them in different script block, for example:

<script language=VBScript runat=server>

Response.Write server.MapPath("\")

</script>

<script language=JScript runat=server>

Response.Write(Server.MapPath("\\"));

</script>

Luke
Microsoft Online Partner Support

Get Secure! [url]www.microsoft.com/security[/url]
(This posting is provided "AS IS", with no warranties, and confers no
rights.)

Newbie needs help--I'm close, but still no cigar

Thread Tools

Display

Newbie needs help--I'm close, but still no cigar

Similar Questions and Discussions

So close, yet so far...

SO CLOSE!

close my project that is in a browser window (close this window)

Wanna buy a Cigar?....

up close

Re: Newbie needs help--I'm close, but still no cigar

Re: Newbie needs help--I'm close, but still no cigar

Re: Newbie needs help--I'm close, but still no cigar

RE: Newbie needs help--I'm close, but still no cigar

Posting Permissions