börja bli kul det där med asp, när man fattar mer vad man håller på med
jag har nu under min första dag som asp-kodare gjort så att man nu kan....
...skriva in namn och efternamn
...hämta medlemmar med querystring
...ta bort medlemmar
inte så tokigt?
nu till frågorna:
jag har en sida som heter namn.asp där jag har lagt länkar som går till en sida vid namn "visa.asp" där den hämtar ett visst id... nu undrar jag om det går att göra så när den har hämtat det id:t så ska man klicka på på en länk, "Ta bort" då tar den bort, men den sidan som tar bort har jag bara fått den att ta bort just det namnet man anger.. kanske lättare om ni ser "radera.asp" själva:
<html>
<body>
<font face="Verdana" size="1">
Personen är raderad ur databasen.<br>
<%
Set Databas = Server.CreateObject("ADODB.Connection")
MdbFilePath = Server.MapPath("databas.mdb")
Databas.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ= " & MdbFilePath & ";"
%>
<%
SQL = "DELETE FROM databas WHERE namn = 'Crisse'"
Databas.Execute(SQL)
%>
</font>
</body>
</html>
lite jobbigt att behöva göra en "rader-sida" för varje person??!!! går det inte att gör det enklare?
här har vi namn.asp:
<a href="visa.asp?ID=25">Crisse</a><br>
som sedan skickas till denna sida, visa.asp:
<html>
<body>
<body bgcolor="white" text="black" link="black" vlink="black">
<font face="Verdana" size="1">
<%
SQL = "UPDATE databas '"
%>
<%
Dim objConn,intSongID,rsSong
set objConn=server.createobject("adodb.connection")
objConn.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & server.mappath("databas.mdb") & ";"
intID=request.querystring("ID")
set rsSong=objConn.Execute("SELECT * FROM databas WHERE ID=" & intID)
if not rsSong.EOF then
%>
Här är en person: <br>
<b><%=rsSong("namn")%></b><br>
<b><%=rsSong("efternamn")%></b>
<%
else
%>
Den personen du försöker hitta finns ej.
<%
End If
rsSong.Close
set rsSong=Nothing
objConn.Close
set objConn=Nothing
%>
<br>
<a href="radera.asp">Ta bort!</a>
</font>
</body>
</html>
jag vill att "namn.asp" ska updateras så att länken till "Crisse" tas bort om han inte är kvar i databasen....
okej, lite dålig förklaring kanske.... tack för raden, men fick detta meddelande...
Kompileringsfel i Microsoft VBScript error '800a03ea'
Syntaxfel
/mittasp/radera.asp, line 12
SQL = "DELETE FROM databas WHERE namn = '" & Requets.QueryString("namn") & '"
---------------------------------------------------------------------------^
även om jag ändrade "request" så nope... nu får jag detta meddelande:
Kompileringsfel i Microsoft VBScript error '800a03ea'
Syntaxfel
/mittasp/radera.asp, line 12
SQL = "DELETE FROM databas WHERE namn = '" & Requets.QueryString("namn") & '"
---------------------------------------------------------------------------^
Du måste ha ett recordset där du lagrar datan du får tillbaka från databasen, så du kan referera till den. För att sidan skall skriva ut alla namn och inte bara det första måste du dessutom göra en loop. Så här:
<html>
<body>
<body bgcolor="black" text="white" link="white" vlink="white">
<font face="Verdana" size="1">
<%
Set Databas = Server.CreateObject("ADODB.Connection")
MdbFilePath = Server.MapPath("databas.mdb")
Databas.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ= " & MdbFilePath & ";"
SQL = "SELECT * FROM databas ORDER BY namn"
Set rsFoo = Databas.Execute(SQL)
Do Until rsFoo.EOF
Response.Write rsFoo("namn") & vbCrLf
rsFoo.MoveNext
Loop
%>
</font>
</body>
</html>
260 ms totalt · 4 externa anrop · v20260731065814-full.d34c6d5a
okej, lite dålig förklaring kanske.... tack för raden, men fick detta meddelande...
