Koden för read_gb.asp kommer här:
---------------------------------------------
<!-- #include file="adovbs.inc" -->
<!-- #include file = "delaText.inc" -->
<% Session.LCID = 1053 %>
<%
If Request.Querystring("tillid")="" & Session("id") Then
Set Connect = Server.CreateObject("ADODB.Connection")
Connect.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath("db/gb.mdb")&";pwd=losen"
Set RecSet = Server.CreateObject("ADODB.Recordset")
Addera = "Select * From gb Where tillID = "&Request.QueryString("tillid") &" Order By Datum DESC"
RecSet.Open Addera, Connect, adOpenStatic, adLockOptimistic
%>
<html>
<head>
<title></title>
<style type="text/css">
body {
scrollbar-base-color: #FFE784;
scrollbar-arrow-color: #000000;
scrollbar-highlight-color: #;
scrollbar-3dlight-color: #000000;
scrollbar-darkshadow-color: #000000;
scrollbar-track-color: #FFE1A5 }
</style>
<style type="text/css">
a:link { text-decoration: none}
a:visited { text-decoration: none}
a:active { text-decoration: none}
</style>
<script language="JavaScript1.2">
function high(which2){
theobject=which2
highlighting=setInterval("highlightit(theobject)",50)
}
function low(which2){
clearInterval(highlighting)
which2.filters.alpha.opacity=75
}
function highlightit(cur2){
if (cur2.filters.alpha.opacity<100)
cur2.filters.alpha.opacity+=5
else if (window.highlighting)
clearInterval(highlighting)
}
</script>
<SCRIPT LANGUAGE="JavaScript">
function formCheck()
{
if (document.form1.text.value == "")
{
alert("Skriv nått innan du skickar är du snäll");
return false;
}
}
</SCRIPT>
<title></title>
<script language="JavaScript1.2">
function high(which2){
theobject=which2
highlighting=setInterval("highlightit(theobject)",50)
}
function low(which2){
clearInterval(highlighting)
which2.filters.alpha.opacity=75
}
function highlightit(cur2){
if (cur2.filters.alpha.opacity<100)
cur2.filters.alpha.opacity+=5
else if (window.highlighting)
clearInterval(highlighting)
}
</script>
<SCRIPT LANGUAGE="JavaScript">
function formCheck()
{
if (document.form1.text.value == "")
{
alert("Skriv nått innan du skickar är du snäll");
return false;
}
}
</SCRIPT>
</head>
<body background="bg1.jpg" link="#333333" vlink="#333333" alink="#333333"><% Session.LCID = 1053 %>
<table width="100%" height="100%" border="0" cellspacing="4" cellpadding="2"><tr valign="top">
<td valign="top">
<% Do Until RecSet.EOF %>
<table border="0" width="100%" cellspacing="1" cellpadding="0"><tr>
<td height="10" width="100%" background="bg1ram.jpg"><font face="Arial" size="1"><b><font color="#333333"><a href="whois.asp?checkid=<%=RecSet("Person_id")%>" target="front"><%=RecSet("namn")%></a>
<a href="read_gb.asp?tillid=<%=RecSet("namn")%>">Svara</a> <a href="bort.asp?vad=tabort&id=<%=RecSet("id")%>">Tabort
</a><%=RecSet("datum")%>
</font></b></font>
</td></tr><tr valign="top"><td width="100%">
<table border="0" width="100%" cellspacing="0" cellpadding="2"><tr><td background="bg1.jpg">
<font face="Arial" size="1"><b><font color="#333333"><%=delaText(RecSet("text"))%>
</font></b></font>
</td></tr></table>
</td></tr></table><font face="Arial" size="1" color="#333333"><b><br>
<%
RecSet.MoveNext
Loop
RecSet.Close
Connect.Close
Set RecSet = nothing
Set Connect = nothing
%>
</b></font>
</td><td width="165" align="right">
<form name="form1" method="post" action="write_gb.asp?tillid=<%=Request.QueryString("tillid")%>" onSubmit="return formCheck()">
<font face="Arial" size="1" color="#333333"><b>
<input type="hidden" name="bild" value="">
<textarea name="text" cols="30" rows="6" style="font-family: Arial; font-size: 10px; color: #333333; font-weight: bold"></textarea>
</b></font>
<div align="right"><font face="Arial" size="1" color="#333333"><b><input type="submit" name="Submit" value="SKICKA!" style="font-family: Arial; font-size: 8pt; color: #333333; font-weight: bold"></b></font></div>
</form><font face="Arial" size="1" color="#333333"><b><br>
</b></font>
</td>
</tr></table>
</body>
</html>
<% Else
Set Connect = Server.CreateObject("ADODB.Connection")
Connect.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath("db/gb.mdb")&";pwd=losen"
Set RecSet = Server.CreateObject("ADODB.Recordset")
Addera = "Select * From gb Where tillID = "&Request.QueryString("tillid") &" Order By Datum DESC"
RecSet.Open Addera, Connect, adOpenStatic, adLockOptimistic
%>
<% End If %>