Hej, Det är lite svårt att säga så mycket då det inte finns någon kod att titta på visst kan jag lägga till lite kod Den hittar användaren, men när den ska gå till add.asp får jag fel meddelandet. Hur hämtar jag innehållet i textboxen och skickar den vidare till nästa sida?? Hur ser SQL-strängen ut om du gör:HJÄLPPP Submitknapparna vill inte fungera!!!
jag har en applikation med 4 olika knappar. Lägg till, Ta bort, Ändra och Avbryt.
Först skriver jag användarnamn i en textbox och beroende på vad jag vill göra ska jag komma till ngn av asp sidorna add, delete, edit eller avbryta.
Meningen är att jag på alla sidor ska hämta upp användaruppgifter för användarID'et jag skrivit in.
---flöde---
login.asp - anvnamn, lösen ok? -->meny.asp
meny.asp - anvnamn (för en annan person) --> lägg till, ta bort, ändra, avbryt
add.asp - användar uppgifter - utför vissa funkt.--- spara--- återgå till meny, lägg till mera poster eller avbryt.
Hur ska jag få submit knapparna att fungera till de olika sidorna?
Nu får jag bara
Feltyp:
ADODB.Field (0x80020009)
Antingen är BOF eller EOF satt till True, eller så har aktuell post raderats. Den begärda åtgärden kräver en aktuell post.
Hjälppppppppp
/WSv: HJÄLPPP Submitknapparna vill inte fungera!!!
Sv:HJÄLPPP Submitknapparna vill inte fungera!!!
' meny.asp
<%
Set con = server.createObject("ADODB.Connection")
con.Open "Provider=SQLOLEDB;Data Source=Kel;Initial Catalog=DataK;Trusted_Connection=Yes"
knapp = Request.Form("btnSubmit")
knapp = Lcase(knapp)
If knapp="lägg till" Then
chkusr = "SELECT * FROM user WHERE userID='"& Request.Form("user") &"'"
Set rst = con.execute(chkusr)
Do until LoginFlag = True or rst.EOF
If rst("userID") = Request.Form("user") Then
LoginFlag = True
Else
LoginFlag = False
End If
rst.MoveNext
Loop
If LoginFlag = True Then
user=Request.Form("user")
Response.Redirect("add.asp")
Else
Response.Write("Användaren finns inte")
End If
End If
If knapp="ta bort" then
......
If LoginFlag = True Then
user=Request.Form("user")
Response.Redirect("delete.asp")
Else
Response.Write("Användaren finns inte")
End If
End If
Set rst = Nothing
Set con = Nothing
%>
<form method="post" action="meny.asp">
' add.asp
<%
Set gUsr = Server.CreateObject("ADODB.Recordset")
sqlUsr = "SELECT * FROM personal" &_
" WHERE personID in (select personID from user where userID='"& Request.Form("user") &"')"
gUsr.Open sqlUsr ,con, adOpenStatic, adLockOptimistic
Set gUsrID = Server.CreateObject("ADODB.Recordset")
sqlUsrID = "SELECT userID FROM user WHERE userID='"& Request.Form("user") &"'"
gUsrID.Open sqlUsrID ,con, adOpenStatic, adLockOptimistic
...
%>
<body>
<form method="post" action=add.asp>
....
Namn:<b><% = gUsr("personFNamn") %> <% = gUsr("personENamn") %>
Användarnamn: <b><% = gUsrID("userID") %>
...
</form>
<body>Sv:HJÄLPPP Submitknapparna vill inte fungera!!!
Kan det vara ngt med Request.Form("user") i
sqlUsr = "SELECT * FROM personal" &_
" WHERE personID in (select personID from user where userID='"& Request.Form("user") &"')" ??Sv: HJÄLPPP Submitknapparna vill inte fungera!!!
Sv:HJÄLPPP Submitknapparna vill inte fungera!!!
sqlUsr = "SELECT * FROM personal" &_
" WHERE personID in (select personID from user where userID='"& Request.Form("user") &"')"
response.write sqlUsr
response.end
Ser den ut som du vill ha den?