Har Problem med QueryString

MystiXMedlem sedan mars 200218 inlägg

23 mars 2002 23:42#1

Suttit Nu i ett jäkla tag men det vägrar funka
Jag är en nybörjare inom ASP + att jag har testar lite grejer i denna kod + att jag skulle börja snygga till den när jag fått allt å funka :)

Hjälp vore snällt

<% Response.Buffer = TRUE %>
<html>

<%
Dim IDnum
Idnum = Request.QueryString("ID")
%>
<%
If Idnum2 = "" Then
Idnum2 = Idnum
End If
%>
<head>
<meta http-equiv="Content-Language" content="sv">
<meta name="GENERATOR" content="Microsoft FrontPage 5.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
<meta http-equiv="Content-Type" content="text/html; charset=windows-1252">
<title>MystiX Soccer System</title>
</head>

<body>

MystiX Soccer System
 
<table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="60%" height="206">
<tr><% =IDnum %> 
<% =IDnum2 %>
<td width="17%" height="206" align="left" valign="top">


response.write "<a href='login.asp?ID=" & recset("ID") & "'> Account</a>"
Account Setup</a>

<a href="soccer.asp?ID=" & RecSet("ID")&soccer=predict">
New Predic</a>
 </td>
<% If Request.QueryString("soccer") = add Then %>
<%
Set Connect = Server.CreateObject("ADODB.Connection")
Connect.Open "driver={Microsoft Access Driver (*.mdb)};dbq=c:\inetpub\wwwroot\asp\soccer\soccer.mdb"
Set RecSete = Server.CreateObject("ADODB.Recordset")
Visa = "SELECT * FROM users WHERE ID = " & Request.Form("ad") & " "
RecSete.Open Visa, Connect, adOpenStatic, adLockOptimistic
%>
<%
RecSete("Name") = Request.Form("Name")
RecSete("Email") = Request.Form("Email")
RecSete("Password") = Request.Form("Password")
RecSete.Update
RecSete.Close
Connect.Close
End If
%>
<%
If Session("Admin") = "" Then

Response.Redirect "adminsite.htm"
End If
If Request.QueryString("soccer") = "account" Then

Dim Idnum2
Idnum2 = Request.QueryString("ID")
Set Connect = Server.CreateObject("ADODB.Connection")
Connect.Open "driver={Microsoft Access Driver (*.mdb)};dbq=c:\inetpub\wwwroot\asp\soccer\soccer.mdb"
Set RecSet = Server.CreateObject("ADODB.Recordset")
Updater = "SELECT * FROM users WHERE ID = " & Trim(Request.QueryString("ID")) & " "
RecSet.Open Updater, Connect, adOpenStatic, adLockOptimistic
%>

\<td width="55%" height="206" align="left" valign="top"\>
\<form method="POST" action="soccer.asp?ID=\<% =Request.Form("ad") %\>&soccer=add" onsubmit="return FrontPage_Form1_Validator(this)" language="JavaScript" name="FrontPage_Form1"\>
  \<p style="margin-top: 0; margin-bottom: 0"\>&nbsp;\</p\>
  \<input type="hidden" name="AD" value="\<% =Idnum2 %\>"\>
  \<p style="margin-top: 0; margin-bottom: 0"\>Name\</p\>
  \<p style="margin-top: 0; margin-bottom: 0"\>
  \<!--webbot bot="Validation" b-value-required="TRUE" i-minimum-length="1" i-maximum-length="100" --\>\<input type="text" name="Name" Value="\<% =RecSet("Name") %\>" size="20" maxlength="100"\>\</p\>
  \<p style="margin-top: 0; margin-bottom: 0"\>Email:\</p\>
  \<p style="margin-top: 0; margin-bottom: 0"\>
  \<!--webbot bot="Validation" b-value-required="TRUE" i-minimum-length="1" i-maximum-length="100" --\>\<input type="text" name="Email" Value="\<% =RecSet("Email") %\>" size="20" maxlength="100"\>\</p\>
  \<p style="margin-top: 0; margin-bottom: 0"\>Password\</p\>
  \<p style="margin-top: 0; margin-bottom: 0"\>
  \<!--webbot bot="Validation" b-value-required="TRUE" i-minimum-length="1" i-maximum-length="100" --\>\<input type="text" name="Password" Value="\<% =RecSet("Password") %\>" size="20" maxlength="100"\>\</p\>
  \<p\>\<input type="submit" value="Save" name="B1"\>
  \<input type="reset" value="Reset All" name="B2"\>\</p\>
\</form\>

</td>
<% End If %>

</body>

</html>

MystiXMedlem sedan mars 200218 inlägg

23 mars 2002 23:54#2

Glömde kanske å säga att det är när man ska hämta informationen från Databasen till fältena + när man ska redigera från fältena till Databasen, det verkar bli nå mongo med QueryStringen.

solbulleMedlem sedan mars 20015 287 inlägg

24 mars 2002 00:08#3

Ska det vara olika variabelnamn: IDnum och idnum mfl?
vidare verkar det saknas lite fnuttar, tex:

If Request.QueryString("soccer") = add

ska väl vara:

If Request.QueryString("soccer") = "add"

********
<a href="soccer.asp?ID=<% RecSet("ID")%>&soccer=predict">

********

MystiXMedlem sedan mars 200218 inlägg

24 mars 2002 00:30#4

Nja ska ju bara kunna hålla reda på ID numret.
Nu funkar allt som det ska förutom efter man addat infon
då blire ID´n i QueryStringen såhär soccer.asp?ID=
Och då blir fel i alla länkar sen.
Nån som har nån aning om hur man ska fixa det, fixa å trixxa med min kod bara det funkar så :)

sawMedlem sedan mars 20011 880 inlägg

24 mars 2002 00:34#5

Ett av det första du måste göra är ju att rensa upp, så att du ser vad du har skrivit. Det här är ju inget vidare:

<p style="margin-top: 0; margin-bottom: 0"><font size="1" face="Verdana"> 
<p style="margin-top: 0; margin-bottom: 0"><font size="1" face="Verdana"> 
response.write "<a href='login.asp?ID=" & recset("ID") & "'> Account</a>" 
<font color="#000000">Account Setup</font></a></font></p>

Här har du en p style förmycket, dessutom så har du skrivit in en reponse.write mitt i en HTML-formatering.

En annan sak, gör inte så här:

<% 
Dim IDnum 
Idnum = Request.QueryString("ID") 
%> 
<% 
If Idnum2 = "" Then 
Idnum2 = Idnum 
End If 
%> '

Lägg så mycket du kan inom ASP-tagen. Att hålla på och öppna ASP-taggarna, och därefter stänga för att på nästa rad öppna igen är helt förkastligt.

MystiXMedlem sedan mars 200218 inlägg

24 mars 2002 00:35#6

Jag fixade det Hehe
Tack Iaf

solbulleMedlem sedan mars 20015 287 inlägg

24 mars 2002 00:38#7

Fungerar allt nu?

Bra i så fall.