hjälp nån funkar inte??
Response.Redirect "read_gb.asp?tillid=" & Session("id")""
------------------
ASP är bäst fuck the rest!!!
response.redirect
8 svar · 194 visningar · startad av jboy_87
Response.Redirect "read_gb.asp?tillid=" & Session("id")
------------------
essentitia preter non sans multiplicandum
attans... EN fråga som jag hade kunna svara på å så kom du först ;)
------------------
all your base are belong to us
ASP är bäst fuck the rest!!!
Mmmm, visst. Tillåt mig att asflabba väldigt länge.. HAHAHAHAHA.
------------------
det finns ingen.info tillgänglig.
"inside every human being there's an american trying to get out".
sgtpepper - the man, the myth, the otroliga taktkänsla! :e Härmed nomineras schassen till månadens medlem.
------------------
You can be a coward for a few minutes, or dead forever. /Rincewind
jag har gjort så att alla medlemmar får en egen gästbok och lagt in så att användaren kan ta bort inläggen fast andra användare kan också ta bort inlägg. Hur gör jag så bara den som e inloggad kan ta bort inläggen??
do_delete2.asp
<%
Set Connect = Server.CreateObject("ADODB.Connection")
Connect.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath("Database/gb.mdb")&";"
Set RecSet = Server.CreateObject("ADODB.Recordset")
Addera = "Select * From gb Where ID=" &Request.QueryString("delID")
RecSet.Open Addera, Connect, adOpenStatic, adLockOptimistic
RecSet.Delete
RecSet.Update
RecSet.Close
Set RecSet = nothing
Set Connect = nothing
Response.Redirect "read_gb.asp?tillid=" & session("id")
Connect.close
%>
read_gb.asp
<!-- #include file="adovbs.inc" -->
<%
Set Connect = Server.CreateObject("ADODB.Connection")
Connect.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath("Database/gb.mdb")&";"
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>Untitled Document</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<LINK REL=stylesheet HREF="style.css" TYPE="text/css">
</head>
<body bgcolor="#FFFFFF" text="#000000" background="start(1)-filer/contentbck.gif" link="#000000" vlink="#000000" alink="#000000">
<table width="466" border="0" cellspacing="2" cellpadding="2" bgcolor="#FFFFFF">
<tr>
<td valign="top" bgcolor="#999999" width="702">
<p align="center"><font size="1" face="Verdana, Arial, Helvetica, sans-serif"><b> </b></font><b><font face="Verdana, Arial, Helvetica, sans-serif">Läs
/ Skriv i gästboken</font></b></p>
</td>
</tr>
<tr>
<td width="702" bgcolor="#CCCCCC">
<p align="center"><font face="Verdana" size="2">Visa kompisar
- Dagbok
- <a href="read_gb.asp?tillid=<%=Request.QueryString("checkid")%>">Gästbok</a>
- <a href="add_friend.asp?id2=<%=Request.QueryString("checkid")%>" target="rightFrame">Lägg
till som kompis</a></font></td>
</tr>
<tr>
<td valign="top" bgcolor="#FFFFFF" width="702">
<table width="456" border="0" cellspacing="0" cellpadding="0" bgcolor="#FFFFFF">
<% Do Until RecSet.EOF %>
<tr>
<td valign="top" bgcolor="#FFFFFF" width="919">
<table width="392" border="0" cellspacing="0" cellpadding="0" bgcolor="#FFFFFF" height="10">
<tr>
<td height="1" width="681">
<table border="0" width="449" cellspacing="0" cellpadding="0" height="36">
<tr>
<td height="5" width="821"><font size="1" face="Verdana, Arial, Helvetica, sans-serif"><b><font color="#000000"><a href="read_gb.asp?tillid=<%=Request.QueryString("tillid")%>"><%=RecSet("namn")%>
</a>
- <font color="#FF0000"><%=RecSet("datum")%></font></font></b></font></td>
<td width="63" rowspan="2" height="36">
<p align="center"><img border="0" width="61" height="71" src="Bilder/medlemmar/ingen.gif"></td>
</tr>
<tr>
<td height="31" width="821"><font size="1" face="Verdana, Arial, Helvetica, sans-serif" color="#000000"><%=Replace(TRIM(Server.HTMLEncode(RecSet("text"))),vbcrlf,"<br>")%></font></td>
</tr>
</table>
</td>
</tr>
<tr>
<td height="21" width="681">
.................................................................................................................<br>
<a href="do_delete2.asp?delID=<%=RecSet("id")%>">
<font size="1" face="Verdana">Radera</font></a><br>
</td>
</tr>
<%
RecSet.MoveNext
Loop
RecSet.Close
Connect.Close
Set RecSet = nothing
Set Connect = nothing
%>
</table>
<font size="1" face="Verdana, Arial, Helvetica, sans-serif" color="#000000"><b>Skriv
i gästboken</b><br>
</font>
<form name="form1" method="post" action="write_gb.asp?tillid=<%=Request.QueryString("tillid")%>">
<font size="1" face="Verdana, Arial, Helvetica, sans-serif" color="#000000">
<textarea name="text" cols="45" rows="4" class ="table" style="background-image: url('Bilder/Bakgrund_rutig.gif'); font-family: Verdana; font-size: 10px; border: 1px solid #000000; "></textarea>
<br>
<br>
<input type="submit" name="Submit" value="Skicka" class="knapp">
( Ditt namn registreras automatiskt ) </font>
</form>
</td>
</tr>
</table>
</td>
</tr>
</table>
<p><font size="1" face="Verdana, Arial, Helvetica, sans-serif"><a href="javascript:history.go(-1);">Tillbaka</a>
</font> </p>
</body>
</html>
write_gb.asp
<%
If Request.Form("text") = "" Then
Response.Redirect "read_gb.asp?tillid=" &Request.QueryString("tillid")
end if
%>
<%
Set Connect = Server.CreateObject("ADODB.Connection")
Connect.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath("Database/gb.mdb")&";"
Set RecSet = Server.CreateObject("ADODB.Recordset")
Addera = "Select * From gb where id="&Session("id")
RecSet.Open Addera, Connect, adOpenStatic, adLockOptimistic
RecSet.AddNew
RecSet("namn") = Session("namn")
RecSet("datum") = Date
RecSet("text") = Request.Form("text")
RecSet("tillID") = Request.QueryString("tillid")
RecSet.Update
RecSet.Close
Connect.Close
Set RecSet = nothing
Set Connect = nothing
Response.Redirect "read_gb.asp?tillid=" &Request.QueryString("tillid")
%>
------------------
ASP är bäst fuck the rest!!!