Hej. Ojojojoj, vilken dålig kod. (Förlåt om det kan uppröra upphovsmakaren) ok, skulle behöva lite hjälp i så fall, då jag själv inte är så kunnig. I och för sig är detkul att pilla med sånt här, men tyvärr känner jag att jag själv inte har orken tyvärr. ok. får upp ett felmeddelande på följande linje: Det är nog inte fel på den raden. När man får felet, Operationen måste använda en fråga som kan uppdateras.Ta Bort Inloggning
Jag har hittat ett färdigt script och undrar då hur det ska se ut för att slippa inloggningen då jag håller på med en egen admin sida så det vore dumt med 2 inloggningar.
Koden jag har är följande:
<% Response.Buffer = True %>
<!--#include file="losen.asp"-->
<html>
<head>
<title>Redigera</title>
<link rel="stylesheet" href="stil.css" type="text/css">
</head>
<body topmargin="0" marginheight="0" link="#000000" vlink="#000000" alink="#000000">
<%
If Request.Querystring("action") = "kolla" Then
Session("koll") = Request.Form("password")
If Session("koll") = Losen Then
Response.Redirect "laggtill.asp?action=ja"
Else
Response.Redirect "laggtill.asp?status=fy"
End If
End If
If Request.Querystring("action")= "ja" AND Session("koll") = Losen Then
Set Conn = Server.CreateObject("ADODB.Connection")
Set news = Server.CreateObject("ADODB.Recordset")
Conn.Open "driver={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("db/databas.mdb")
SQL = "SELECT * FROM artiklar ORDER BY Datum DESC"
news.Open SQL, Conn, 1, 2
If news.EOF Then
Response.Write "Lägg till"
Response.Write "Inga nyheter"
Else
Do While Not news.EOF
Response.Write "<font class=text>"
Response.Write "Lägg till Ta bort Ändra Logga ut <br>"
Response.Write "<b>" & FormatDateTime(news("Datum"),2) & "</b>"
Response.Write "<b> " & news("rubrik") & "</b><br>"
Response.Write "<br><br><br>"
news.MoveNext
Loop
Response.Write "<tr><td colspan=3>"
Response.Write "</td></tr></table>"
news.Close
Conn.Close
Set news = Nothing
Set Conn = Nothing
End If
ElseIf Request.Querystring("action") = "add" AND Session("koll") = Losen Then
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "driver={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("db/databas.mdb")
SQL = "SELECT * FROM artiklar ORDER BY Datum DESC"
Set news = Conn.Execute(SQL)
%>
<form method="post" action="laggtill.asp?action=spara">
<table width="450" height="327">
<tr>
<td height="28" class="td2">
<b>Rubrik:</b><br><input type name="rubrik" size="55" class="form"><br>
</td>
</tr>
<tr>
<td height="24" class="td2">
<b>Fet Text / Förstasidan:<br>
</b><input type name="fet_text" size="55" class="form"></td>
</tr>
<tr>
<td height="28" class="td2">
<b>Bild: (bilden över nyheten)<br>
</b><input type name="bild_nyhet" size="55" class="form"></td>
</tr>
<tr>
<td height="134" class="td2">
<b>Innehåll:</b><br>
<textarea name="text" rows="24" cols="80" class="form"></textarea>
</td>
</tr>
<tr>
<td height="28" class="td2">
<b>Skrivet av:<br>
</b><input type name="kalla" size="55" class="form"></td>
</tr>
<tr>
<td height="13">
<input type="image" src="knapp_spara.gif" name="Submit" value="spara" onfocus=this.blur()>
</td>
</tr>
<tr>
<td height="12" class="td2">Tillbaka</td>
</tr>
</table>
</form>
<%
news.Close
Set news = Nothing
Conn.Close
Set Conn = Nothing
End If
If Request.Querystring("action") = "" Then
%>
<br>
<form name="loggain" method="post" action="laggtill.asp?action=kolla">
<b><font size="4" face="Verdana">Artiklar<br>
</font></b><br>
<input type="password" name="password" size="15" class="form">
<input type="image" src="knapp_loggain.gif" value="Logga in" onfocus=this.blur()>
<br>
Tillbaka</form>
<%
End If
If Request.Querystring("action") = "fy" Then
Response.Write "<font color=red>Fel lsenord!</font>"
End If
If Request.Querystring("action") = "loggaut" Then
Session.Abandon
Response.Redirect "../../../Login/Admin/admin_menu.asp"
End If
If Request.Querystring("action") = "spara" AND Session("koll") = Losen Then
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "driver={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("db/databas.mdb")
SQL = "INSERT INTO artiklar ([Rubrik],[fet_text],[bild_nyhet],[text],[kalla],[Datum]) VALUES('" & Request.Form("Rubrik") & "','" & Request.Form("fet_text") & "','" & Request.Form("bild_nyhet") & "','" & Request.Form("Text") & "','" & Request.Form("kalla") & "',#" & Now & "#)"
Conn.Execute(SQL)
Response.Redirect "laggtill.asp?action=ja"
End If
If Request.Querystring("action") = "tabort" AND Session("koll") = Losen Then
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "driver={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("db/databas.mdb")
SQL = "DELETE FROM artiklar WHERE id ="& Request.Querystring("id")
Conn.Execute(SQL)
Response.Redirect "laggtill.asp?action=ja"
End If
%>
<%
If Request.Querystring("action") = "andra_text" AND Session("koll") = Losen Then
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "driver={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("db/databas.mdb")
SQL = "SELECT * FROM artiklar WHERE id = "& Request.Querystring("id")
Set RecSet = Conn.Execute(SQL)
%>
<form method="post" action="laggtill.asp?action=andra&id=<%=Request.Querystring("id")%>" name="laggtill">
<table width="450">
<tr>
<td class="td2">
<b>Rubrik:</b><br>
<input type name="rubrik" size="55" value="<%=RecSet("Rubrik") %>" class="form"><br>
</td>
</tr>
<tr>
<td class="td2">
<b>Fet Text / Förstasidan:<br>
</b>
<input type name="fet_text" size="55" value="<%=RecSet("fet_text") %>" class="form"></td>
</tr>
<tr>
<td class="td2">
<b>Bild: (bilden över nyheten)<br>
</b>
<input type name="bild_nyhet" size="55" value="<%=RecSet("bild_nyhet") %>" class="form"></td>
</tr>
<tr>
<td class="td2">
<b>Innehåll:</b><br>
<textarea name="text" rows="24" cols="80" class="form"><%=RecSet("Text") %></textarea>
</td>
</tr>
<tr>
<td class="td2">
<b>Skrivet Av:<br>
</b>
<input type name="kalla" size="55" value="<%=RecSet("kalla") %>" class="form"></td>
</tr>
<tr>
<td>
<input type="image" src="knapp_spara.gif" name="Submit" value="spara" onfocus=this.blur()>
</td>
</tr>
</table>
</form>
<%
RecSet.Close
Set RecSet = Nothing
Conn.Close
Set Conn = Nothing
End If
If Request.Querystring("action") = "andra" AND Session("koll") = Losen Then
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "driver={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("db/databas.mdb")
SQL = "SELECT * FROM artiklar Where ID= "&Request.Querystring("ID")
Set RecSet = Server.Createobject("ADODB.recordset")
RecSet.Open SQL, Conn, 1, 2
RecSet("Rubrik") = Request.Form("Rubrik")
RecSet("fet_text") = Request.Form("fet_text")
RecSet("Text") = Request.Form("Text")
RecSet("Bild_nyhet") = Request.Form("Bild_nyhet")
RecSet("kalla") = Request.Form("kalla")
RecSet.Update
Response.Redirect "laggtill.asp?action=ja&id="&Request.Querystring("id")&""
End If
%>
</body>
</html>
Tacksam för all hjälp jag kan få :D
Sv: Ta Bort Inloggning
Koden kan optimeras mycket, och det finns allvarliga brister som gör att man lätt kan "hacka" och förstöra.
Det är det som är lite synd att ta färdig kod - det blir omständigt att anpassa sidan/siten till sig själv.
Mitt råd är att bygga från början, men använda sig av de elementen som finns i det script du hittat.
/JonasSv:Ta Bort Inloggning
Hade tänkt mig 6 fällt, Rubrik, Skribent, Email, Text, bild samt ID.
Inloggning behövs inte
Men frågan är hur jag ska göra, någon som vill hjälpa mig :S
Tacksam för all hjälp :DSv: Ta Bort Inloggning
Visst kan jag hjälpa till om du fastnar med något, men annars tycker jag att du skall lära dig ASP och lösa det själv
Det blir roligare så och hela syftet med siten imo är att man skall utvecklas och bli bättre i programspråk, och inte låta andra göra jobbet gratis åt dig.
Men det kanske finns någon här som inte är en surmört som jag ;) och gärna hjälper dig!
Lycka till!Sv:Ta Bort Inloggning
objConn.Execute("INSERT INTO artiklar(Datum,Rubrik,text,Skribent, bild_nyhet, email) VALUES('" & strDatum & "','" & strRubrik & "','" & strtext & "','" & strSkribent & "','" & strbild_nyhet & "','" & stremail & "')")
Feltyp:
Microsoft JET Database Engine (0x80040E14)
Syntaxfel i UPDATE-uttryck.
vad kan det vara för fel??Sv: Ta Bort Inloggning
UPDATE är det den frågar efter.
objConn.Execute("INSERT INTO artiklar (Datum,Rubrik,[text],Skribent, bild_nyhet, [email]) VALUES ('#" & strDatum & "#','" & strRubrik & "','" & strtext & "','" & strSkribent & "','" & strbild_nyhet & "','" & stremail & "')")
Vet inte om det hjälper om det är fel på INSERT raden men det är nu nu mellanslag efter artiklar samt VALUES, och lade text och email i klammrar. Kör du med Accessdatabas bör du köra # runt datum, annars kan du skippa detSv:Ta Bort Inloggning
Är det att den inte kommer åt databasen?? För det kommer när jag ska lägga till något för jag har inga skrivrättigheter på databasen. Kanske vet hur man fixar det?? Kör med IIS.