Vb Script

hvis det er et eksamens projekt skal du vel selv kunne dokumentere det efterfølgende..

Så derfor vil jeg anbefale dig at kigge på det selv, og selv prøve at konvertere det til javascript..

Men i bund og grund minder det meget om vbscript..
Jeg vil mene noget i stilen af:

<% @Language="JavaScript" %>
<%
intPage = Request("page")
If (!isNumeric(intPage) Or intPage < 1) {
  intPage = 1
}
var rs = Server.CreateObject("ADODB.RecordSet")
strSQL = "SELECT aar, beskrivelseid FROM aar order by aar"
strDSN = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="&Server.MapPath("timeline.mdb")
rs.Open strSQL, strDSN, 1
If (!rs.BOF Or !rs.EOF) {
  rs.PageSize = 10
  rs.AbsolutePage = intPage
  intRecCount = rs.PageSize
  intPageCount = rs.PageCount


If (Clng(intPage) >) 1 {
  Response.Write "<a href=default.asp?page=" & intPage - 1 & ">&lt;&lt;</a>"
}Else{
  Response.Write "&lt;&lt;"
}
Response.Write "&nbsp;"

  Do  {
    Response.Write "<a href=default.asp?id="& rs("beskrivelseid")&">"& rs("aar") &"</A>&nbsp;&nbsp;|&nbsp;"
  intRecCount = intRecCount - 1
  rs.MoveNext
  } While (!rs.EOF And intRecCount > 0)
}
rs.Close
Set rs = Nothing

   

Response.Write "&nbsp;"

If (Clng(intPage) < Clng(intPageCount)) {
  Response.Write "<a href=default.asp?page=" & intPage + 1 & ">&gt;&gt;</a> "
}Else{
  Response.Write "&gt;&gt;"
}


Men jeg er ikke sikker..
Prøv det af, og vis om du får nogen fejl, så kan jeg se om jeg kan rette det til og få det til at virke :-)

Jeg har ikke selv testet ovenstående...

har også givet et forsøg på at lave det om,
----------------
<% @Language="JavaScript" %>

<%
intPage = Request("page")
//  If isNumeric(intPage) = False Or intPage < 1 Then
//  intPage = 1
//  End If

var
sqlStatement1 =
      "SELECT aar, beskrivelseid FROM aar order by aar"

    ConOpenArg = "";
    Connection= Server.CreateObject("ADODB.connection");
    ConOpenArg = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" + Server.MapPath("timeline.mdb");

    Connection.open(ConOpenArg);

  rs = Connection.Execute(sqlStatement1);





//var rs = Server.CreateObject("ADODB.RecordSet")
//strSQL = "SELECT aar, beskrivelseid FROM aar order by aar"
//strDSN = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="&Server.MapPath("timeline.mdb")

//rs.Open(strSQL, strDSN, 1);

if (!(rs.BOF || rs.EOF))
{
  rs.PageSize = 10;
  rs.AbsolutePage = intPage;
  intRecCount = rs.PageSize;
  intPageCount = rs.PageCount;

// Clng(intPage) > 1

if (intPage > 1)
  {
  Response.Write("<a href=default.asp?page=" + (intPage - 1) + ">&lt;&lt;</a>");
  }
else
{
  Response.Write("&lt;&lt;");
}

Response.Write("&nbsp;");



while (!(rs.EOF && intRecCount > 0))
{
    Response.Write("<a href=default.asp?id="+ rs("beskrivelseid")+">"+ rs("aar") +"</A>&nbsp;&nbsp;|&nbsp;");
  intRecCount = intRecCount - 1;
  rs.MoveNext

}
}

rs.Close
rs = Null

for (intNum = 1; intNum <= intPageCount; intNum++)
//next


Response.Write("&nbsp;");

if ((intPage) < (intPageCount))

{
  Response.Write("<a href=default.asp?page=" + intPage + 1 + ">&gt;&gt;</a> ");
}
else
{
  Response.Write("&gt;&gt;");
}
%>
---------------------------
men for følgende fejl:
Error Type:
ADODB.Recordset (0x800A0BB9)
Arguments are of the wrong type, are out of acceptable range, or are in conflict with one another.
i linie 34
-------------------------------

men jeg vil lige prøve at kigge på dit, tak indtil vidre

databasen conn, er selvfølgelig ikke skrevet ud!!!

så fejlen jeg for i mit eget er:
Error Type:
ADODB.Recordset (0x800A0E78)
Operation is not allowed when the object is closed.
linie 31

Jeg har lige rettet dit script til, men for følgende fejl
Error Type:
Microsoft JScript runtime (0x800A138F)
Object expected
linie 4
----------------------------

<% @Language="JavaScript" %>
<%
intPage = Request("page")
if (!isNumeric(intPage) || intPage < 1);
{
  intPage = 1
}
var rs = Server.CreateObject("ADODB.RecordSet")
strSQL = "SELECT aar, beskrivelseid FROM aar order by aar"
strDSN = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="&Server.MapPath("timeline.mdb")
rs.Open(strSQL, strDSN, 1);
if (!rs.BOF || !rs.EOF);
{
  rs.PageSize = 10
  rs.AbsolutePage = intPage
  intRecCount = rs.PageSize
  intPageCount = rs.PageCount

if (CLng(intPage) > 1)
{
  Response.Write("<a href=default.asp?page=" & intPage - 1 & ">&lt;&lt;</a>");
}
else
{
Response.Write("&lt;&lt;");
}


Response.Write("&nbsp;");

  do  {
  Response.Write("<a href=default.asp?id="& rs("beskrivelseid")&">"& rs("aar") &"</A>&nbsp;&nbsp;|&nbsp;");
  intRecCount = intRecCount - 1
  rs.MoveNext
  }
  while (!rs.EOF && intRecCount > 0);
}


rs.Close
rs = Null;



Response.Write("&nbsp;");

if (Clng(intPage) < Clng(intPageCount))
{
  Response.Write("<a href=default.asp?page=" & intPage + 1 & ">&gt;&gt;</a> ");
}
else
{
  Response.Write("&gt;&gt;")
}

%>

hmm...

prøv med at sætte en var foran i denne linie:
intPage = Request("page")

altså:
var intPage = Request("page")

må man godt bruge "var" flere gange
--------
for stadig samme fejl

jo jo...

var betyder bare at det definere en variabel..

Kan du smide et svar

Det kan du tro...

der er et svar her :-)