ASP og Frames probs. Need Backup !!
Jeg har problemer med mine sider i asp virker ikke i mine frames...Se: www.adminz.dk/Goauld og tryk på næste eller sidste, så kommer der en fejl.
Har samme problem med Login, som heller ikke virker, men hvis du åbner siden for sig selv virker det fint:
http://www.friserverplads.dk/goauld/crap/admin/login.asp &
http://www.friserverplads.dk/goauld/crap/news.asp
Koderne til login siden lyder sådan her:
<%
Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
DSN = DSN & "DBQ=" & Server.MapPath ("../database.mdb")
Conn.Open DSN
strSQL = "Select * from jwnews"
set rscount = conn.execute("select count(id) as antal from jwnews")
antal = rscount("antal")
set rscount = nothing
%>
<%
mode = Request("mode")
Response.Buffer = True
%>
<html>
<head>
<link rel="stylesheet" href="http://adminz.dk/Goauld/Goauld.css" type="text/css">
<title>JWNews 1.0 ASP</title>
</head>
<body bgcolor="#FFFFFF" text="#000000" link="#006699" vlink="#006699" alink="#006699">
<p><font color="#FFFFFF" face="Verdana" size="2">
<span style="background-color: #000000"> </span> </font>
<table border='0' cellspacing='0' cellpadding='0' width='584' align="center" height="19" style="border-bottom-width: 0">
<tr>
<td width='1' valign='top' style="border-left-style: solid; border-left-width: 1; border-top-style: solid; border-top-width: 1; border-bottom-style: none; border-bottom-width: medium" bordercolor="#505050">
<font color="#FFFFFF" face="Verdana" size="2">
<span style="background-color: #000000"><img src="images/intet.gif" width='1'></span></font></td>
<td width='702' valign='top' style="border-top-style: solid; border-top-width: 1; border-bottom-style: none; border-bottom-width: medium" bordercolor="#505050">
<table width="100%" border="0" cellspacing="4" cellpadding="0">
<tr>
<td width="50%">
<div align="right"><font color="#FFFFFF"><b>
<font size="2" face="Verdana">
<span style="background-color: #000000">Skrevet
Nyheder: <%=antal%> </span></font> </b></font></div>
</td>
</tr>
</table>
</td>
<td width='8' valign='top' style="border-right-style: solid; border-right-width: 1; border-top-style: solid; border-top-width: 1; border-bottom-style: none; border-bottom-width: medium" bordercolor="#505050">
<font color="#FFFFFF" face="Verdana" size="2">
<span style="background-color: #000000"><img src="intet.gif" width='1'></span></font></td>
</tr>
</table>
<div align="center">
<center>
<table border="0" width="584" cellspacing="0" cellpadding="0" style="border-collapse: collapse">
<tr>
<td valign="top" colspan="2" style="border-style: solid; border-width: 1" bordercolor="#505050" width="583">
<div align="center" style="width: 582; height: 204"> <font color="#FFFFFF" face="Verdana" size="2">
<span style="background-color: #000000"> <br>
</span>
</font>
<div align="center">
<center>
<table border="0" width="490" cellspacing="0" cellpadding="0" style="border-collapse: collapse">
<tr>
<td valign="top" class="menuoverskrift" colspan="2" style="border-style: none; border-width: medium" width="488">
<table width="100%" border="0" cellspacing="4" cellpadding="0" style="border-collapse: collapse">
<tr>
<td>
<% if mode = "" then %><font color="#FFFFFF" face="Verdana" size="2"><span style="background-color: #000000">
</span> </font>
<font face="Verdana" color="#FFFFFF">
<span style="background-color: #000000">Login</span></font><b><font size="2" face="Verdana" color="#FFFFFF"><span style="background-color: #000000"><br>
</span></font></b><form method=post action=login.asp?mode=login>
<font face="Verdana" color="#FFFFFF"><font size="2">
<span style="background-color: #000000">Brugernavn: </span></font>
<span style="background-color: #000000"> <input type=text name=brugernavn size="20"><font size="2"><br>
Password: </font>
<input type=text name=password size="20"></span></font><p>
<font face="Verdana" color="#FFFFFF"><font size="2">
<span style="background-color: #000000"> </span></font><span style="background-color: #000000"><input type=submit value=Login></span><font size="2"><span style="background-color: #000000">
</span></p>
</form>
<% end if %><span style="background-color: #000000">
<% if mode = "login" then
Set myConn = Server.CreateObject("ADODB.Connection")
myConn.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("../database.mdb")
strSQL = "SELECT * FROM admin where brugernavn = '" & Request.form("brugernavn") & "'"
Set rs = myConn.Execute(strSQL)
If rs.BOF Or rs.EOF Then
Response.Redirect("login.asp?error=Ingen bruger med det navn!")
end if
if rs("password") = Request.form("password") then
session("brugernavn") = rs("brugernavn")
session("id") = rs("id")
session("login") = yes
Response.Redirect("oversigt.asp")
else
Response.Redirect("login.asp?error=Du har indtastet forkert password!")
end if
myConn.Close
Set myConn = Nothing
end if %> </span></font></font>
</td>
</tr>
</table>
</td>
</tr>
</table>
</center>
</div>
<font color="#FFFFFF" face="Verdana" size="2">
<span style="background-color: #000000">
<br>
</span>
</font>
</div>
</td>
</tr>
</table>
</center>
</div>
</body>
</html>
Og koderne til News system lyder således:
<%
' Databaseforbindelse - husk at angive sti til din database
Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
DSN = DSN & "DBQ=" & Server.MapPath ("database.mdb")
Conn.Open DSN
strSQL = "Select * from jwnews"
set rscount = conn.execute("select count(id) as antal from jwnews")
antal = rscount("antal")
set rscount = nothing
%>
<html>
<head>
<title>JWNews 1.0 ASP</title>
<link rel="stylesheet" href="http://adminz.dk/Goauld/Goauld.css" type="text/css">
<base target="_self">
</head>
<body bgcolor="#FFFFFF" text="#000000" link="#006699" vlink="#006699" alink="#006699">
<tr>
<td width="61%" height="11"></td>
<td width="39%" height="11"></td>
</tr>
<tr>
<td><font color="#FFFFFF" face="Verdana" size="1"> </td>
</tr>
<tr>
<td> </td>
</tr>
<tr>
<td>
</font>
<div align="center">
<center>
<table border='0' cellspacing='0' cellpadding='0' width='580' height="19" style="border-collapse: collapse; ">
<tr>
<td width='1' valign='top' style="border-left-style: solid; border-left-width: 1; border-right-style: none; border-right-width: medium; border-top-style: solid; border-top-width: 1; border-bottom-style: solid; border-bottom-width: 1" bordercolor="#505050">
<font color="#FFFFFF" face="Verdana" size="1"><img src="images/intet.gif" width='1'></font></td>
<td width='642' valign='top' style="border-left-style: none; border-left-width: medium; border-right-style: none; border-right-width: medium; border-top-style: solid; border-top-width: 1; border-bottom-style: solid; border-bottom-width: 1" bordercolor="#505050">
<table width="100%" border="0" cellspacing="4" cellpadding="0" style="border-top-width: 0">
<tr>
<td width="50%" style="border-top-style: none; border-top-width: medium">
<div align="right"><font color="#FFFFFF"><b>
<font size="2" face="Verdana">Skrevet
Nyheder: <%=antal%> </font> </b></font></div>
</td>
</tr>
</table>
</td>
<td width='3' valign='top' style="border-left-style: none; border-left-width: medium; border-right-style: solid; border-right-width: 1; border-top-style: solid; border-top-width: 1; border-bottom-style: solid; border-bottom-width: 1" bordercolor="#505050">
<font color="#FFFFFF" face="Verdana" size="1"><img src="intet.gif" width='1'></font></td>
</tr>
</table>
</center>
</div>
</td>
</tr>
<div align="center">
<center>
<table border="0" width="580" cellspacing="0" cellpadding="0" style="border-collapse: collapse">
<tr>
<td valign="top" colspan="2" bordercolor="#505050" style="border-left-style: solid; border-left-width: 1; border-top-style: none; border-top-width: medium; border-bottom-style: solid; border-bottom-width: 1; border-right-style:solid; border-right-width:1" width="578">
<div align="center">
<p>
<p>
<p><font color="#FFFFFF" face="Verdana" size="1"><br>
</font>
<p>
<font color="#FFFFFF" face="Verdana" size="1">
<%
PageSize = 4
Conn_String = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("database.mdb")
If Request("PageTo") <> "" Then
strPageTo = Request("PageTo")
If strPageTo <> "" Then
nPageTo = int(strPageTo)
If nPageTo < 1 Then
nPageTo = 1
End If
Else
nPageTo = 1
End If
Set RS = Session("ListingRS")
RS.AbsolutePage = nPageTo
else
Set Conn=Server.CreateObject("ADODB.Connection")
Conn.ConnectionTimeout=15
Conn.CommandTimeout=30
Conn.Open Conn_String
Set Cmd=Server.CreateObject("ADODB.Command")
Set RS=Server.CreateObject("ADODB.Recordset")
Cmd.CommandType = 1
Set Cmd.ActiveConnection = Conn
Cmd.CommandText="SELECT * From jwnews order by ID desc;"
RS.Open Cmd, , 1, 1
RS.PageSize = PageSize
Set Session("ListingRS") = RS
nPageTo = 1
If not (RS.BOF and RS.EOF) Then
Set RS = Session("ListingRS")
RS.AbsolutePage = nPageTo
End If
end if
If RS.EOF Then
Response.Write(" <br><br><font size=4 color='red'<b>No Script were found <br></b></font><br>")
Else
nRowCount = RS.PageSize
While not RS.EOF and nRowCount > 0
Count = 0
for i = 1 to Count
next
dagar=DateDiff("d", Dato, RS("Dato"))+2
if dagar >= 0 then
%> </font>
<div align="center">
<center>
<table border="0" width="100" cellspacing="0" cellpadding="0" style="border-collapse: collapse">
<tr>
<td valign="top" class="menuoverskrift" colspan="2" bordercolor="#505050" style="border-left-style:solid; border-left-width:1; border-right-style:solid; border-right-width:1; border-top-style:solid; border-top-width:1; border-bottom-style:none; border-bottom-width:medium">
<table width="100%" border="0">
<tr>
<td height="14" width="44%"><font size="1" face="Verdana"><b>
<font color="#FFFFFF">Tilføjet
af: </font> <a href="mailto:<% = rs("email") %>">
<font color="#FFFFFF">
<% = rs("navn") %> </font>
</a> </b></font></td>
<td height="14" width="56%">
<div align="right">
<font size="1" face="Verdana" color="#FFFFFF"><b>Tilføjet
Kl.
<% = rs("kl") %> D.
<% = rs("dato") %>
</b></font></div>
</td>
</tr>
</table>
</td>
</tr>
<tr>
<td valign="top" class="menuoverskrift" colspan="2" style="border-top-style: none; border-top-width: medium">
<table width="400" border="0" cellspacing="0" cellpadding="0" height="17">
<tr>
<td>
<table width="400" border="0" cellspacing="0" cellpadding="3" class="1px_ganz" height="8">
<tr>
<td height="13" bordercolor="#505050" style="border-style: solid; border-width: 1">
<font color="#FFFFFF"> <b>
<font size="1" face="Verdana, Arial, Helvetica, sans-serif"> <% = rs("kommetare") %></font><font color="#FFFFFF" face="Verdana" size="1"> </font>
</b></font> </td>
</tr>
</table>
</td>
</tr>
</table>
</td>
</tr>
</table>
</center>
</div>
<font face="Verdana" size="1">
<br>
<%
end if
nRowCount = nRowCount - 1
RS.MoveNext
Wend
'Display Paging Buttons
Response.Write("<center><table border=0 cellpadding=4 cellspacing=4><tr>")
' Display <<
Response.Write(vbcr & "<form action=" & Request.ServerVariables("SCRIPT_NAME") & " method=post id=form1>")
Response.Write(vbcr & "<td align=center><font face=arial size=3><b>")
If int(nPageTo) = 1 Then
Response.Write(vbcr & "<input type=submit value=' << Første ' style='{font-weight:bold}' DISABLED id=submit2 name=submit2><input type=hidden name=PageTo value=1>")
Else
Response.Write(vbcr & "<input type=submit value=' << Første ' style='{font-weight:bold}' id=submit1 name=submit1><input type=hidden name=PageTo value=1>")
End IF
Response.Write(vbcr & "</td>")
Response.Write(vbcr & "</form>")
' Display <
Response.Write(vbcr & "<form action=" & Request.ServerVariables("SCRIPT_NAME") & " method=post id=form2>")
Response.Write(vbcr & "<td align=center><font face=arial size=3><b>")
If int(nPageTo) = 1 Then
Response.Write(vbcr & "<input type=submit value=' < Tilbage ' id=submit1 name=submit1 style='{font-weight:bold}' DISABLED><input type=hidden name=PageTo value=1>")
Else
Response.Write(vbcr & "<input type=submit value=' < Tilbage ' id=submit1 name=submit1 style='{font-weight:bold}'>")
Response.Write(vbcr & "<input type=hidden name=PageTo value=" & nPageTo-1 & ">")
End If
Response.Write(vbcr & "</td>")
Response.Write(vbcr & "</form>")
' Display >
Response.Write(vbcr & "<form action=" & Request.ServerVariables("SCRIPT_NAME") & " method=post id=form3>")
Response.Write(vbcr & "<td align=center><font face=arial size=3><b>")
If int(nPageTo) = int(RS.PageCount) Then
Response.Write(vbcr & "<input type=submit value=' Næste > ' id=submit1 name=submit1 style='{font-weight:bold}' DISABLED><input type=hidden name=PageTo value=" & nPageTo & ">")
Else
Response.Write(vbcr & "<input type=submit value=' Næste >' id=submit1 name=submit1 style='{font-weight:bold}'>")
Response.Write(vbcr & "<input type=hidden name=PageTo value=" & nPageTo+1 & ">")
End IF
Response.Write(vbcr & "</td>")
Response.Write(vbcr & "</form>")
' Display >>
Response.Write(vbcr & "<form action=" & Request.ServerVariables("SCRIPT_NAME") & " method=post id=form4>")
Response.Write(vbcr & "<td align=center><font face=arial size=3><b>")
If int(nPageTo) = int(RS.PageCount) Then
Response.Write(vbcr & "<input type=submit value=' Sidste >> ' id=submit1 name=submit1 style='{font-weight:bold}' DISABLED><input type=hidden name=PageTo value=" & nPageTo & ">")
Else
Response.Write(vbcr & "<input type=submit value=' Sidste >> ' id=submit1 name=submit1 style='{font-weight:bold}'><input type=hidden name=PageTo value=" & RS.PageCount & ">")
End IF
Response.Write(vbcr & "</td>")
Response.Write(vbcr & "</form>")
Response.Write("</tr>")
Response.Write("<tr>")
Response.Write("<td colspan=4 align=center><font face='Verdana' size=2 color='white'><b>Side </font><font face='Verdana' size=2 color='red'><b>" & nPageTo & "</font><font face='Verdana' size=2 color='white'><b>/</font><font face='Verdana' size=2 color='red'><b>" & RS.PageCount & "</font></b>")
Response.Write("</td>")
Response.Write("</tr>")
Response.Write("</table>")
end if
%><font color="#FFFFFF">
<br>
</font></font> </div>
</td>
</tr>
</table>
</center>
</div>
<p> </p>
<p> </p>
</body>
</html>
Som sagt når du tager og klikker på næste side melder den følgene fejl:
Microsoft VBScript runtime error '800a01a8'
Object required: 'Session(...)'
/goauld/crap/news.asp, line 90
Da jeg ikke er den store asp haj, må i gerne skrive helt præcist hvad jeg skal skrive og slette..
//The_Shape *OuT*
ps. Ikke mig der har lavet koderne
