Vidare från indexsida

joo cyprus..

men hur går det för Zerephina

Vi väntar med spänning

Vad ska man göra kl 00:45 på en måndagskväll?

Jodå, jag testar alla varianter. Men jag får inget att funka. Antingen visas sidan inte över huvudtaget eller så blir det "missing op..."

Jag funderar på om det skickas nått till "valkommen"sidan och om feler ligger där, eller om det helt enkelt inte finns nått att skicka.

Hjälpa folk med databasproblem såklart.

Nu gör jag lite onödigt här och skickar massor av html-kod också men... Ja här är första själva inlogningssidan:

<HTML>
<HEAD>
<META NAME="robots" CONTENT="noindex">
</HEAD>
<BODY>

<FORM ACTION = "frame.asp" METHOD = "POST">

<%
Set MinCon = Server.CreateObject("ADODB.Connection")
Set rs = Server.CreateObject("ADODB.Recordset")
MinCon.Open "DSN=databas;UID=;PWD="
%>

<TABLE BORDER="0" CELLPADDING="0" CELLSPACING="0" HEIGHT="100%" WIDTH="100%">
<TR>
<TD>
<DIV ALIGN="center">
<TABLE BORDER="2" CELLPADDING="0" CELLSPACING="0">
<TR>
<TD>
<TABLE BORDER="0" CELLPADDING="5" CELLSPACING="0" BGCOLOR="EDDDC5">
<TR>
<TD>
<FONT FACE="verdana" SIZE="2">
Namn:
</FONT>
</TD>
<TD>
<INPUT TYPE = "TEXT" NAME = "UserID" SIZE = 20>
</TD>
</TR>
<TR>
<TD>
<FONT FACE="verdana" SIZE="2">
Lösen:
</FONT>
</TD>
<TD>
<INPUT TYPE = "PASSWORD" NAME = "pwd" SIZE = 20>
</TD>
</TR>
<TR>
<TD COLSPAN="2">
<CENTER>
<INPUT TYPE="SUBMIT" VALUE="Logga in" NAME="skicka" >
</FORM>
</CENTER>
</TD>
</TR>
</TABLE>
</TABLE>
</DIV>
</TR>
</TD>
</TABLE>
</BODY>
</HTML>

Skippa databasen och skriv bara istället för databaskopplingen:

<%
response.write request.form("pwd")
response.write request.form("UserID")
%>

Jepp, helt klart cyprys!
Sömn är bara för mesar, det kan man göra i graven!

---

Om inte ...

strUserID = rs("UserID")
response.Write strUserID

... fungerar (alltså precis efter du öppnat databasen) så är det fel på db:n någonstans.

<%
Set MinCon = Server.CreateObject("ADODB.Connection")
Set rs = Server.CreateObject("ADODB.Recordset")
MinCon.Open "DSN=databas;UID=;PWD="
%>

Detta gör väl ingen nytta? Bort med skiten!

<%
Set MinCon = Server.CreateObject("ADODB.Connection")
Set rs = Server.CreateObject("ADODB.Recordset")
MinCon.Open "DSN=databas;UID=;PWD="
SQL = "SELECT * From personer WHERE UserID = '" & Request.Form("UserID") & "' AND losenord = '"&Request.form("pwd")&"' "
rs.Open SQL, MinCon, 1, 2
If rs.EOF Then
Response.Redirect "../annansida.html"
End If
strUserID = rs("UserID")
Response.Write strUserID
rs.Close
SET rs = Nothing
%>

det du gör är ju att kolla om Usern har ett giltigt pwd och har den det så kan du ju använda Request.Form("UserID") igen eller, har jag fel ??

sen kommer då framesidan

<%
Set MinCon = Server.CreateObject("ADODB.Connection")
Set rs = Server.CreateObject("ADODB.Recordset")
MinCon.Open "DSN=databas;UID=;PWD="
SQL = "SELECT * From personer WHERE UserID = '" & Request.Form("UserID") & "'"
rs.Open SQL, MinCon, 1, 2
If rs.EOF Then
Response.Redirect "../annansida.html"
End If
If Not rs("losenord") = Request.Form("pwd") Then
Response.Redirect "../annansida.html"
End If

rs.Close
SET rs = Nothing
%>

<html>

<head>
<meta name="robots" content="noindex">
</head>

<frameset rows="64,*">
<frame name="banner" scrolling="no" noresize target="contents" src="banner.asp">
<frameset cols="150,*">
<frame name="contents" target="main" src="meny.asp">
<frame name="main" src="valkommen.asp?UserID=<%=UserID%>">

</frameset>
<noframes>
Du behöver en nyare browser som stödjer frames.
</body>
</noframes>
</frameset>
</html>

*ha ha* Fråga mig inte vad jag gör! För det har jag INGEN som helst aning om ;-)

Databasen funkar eftersom att jag kör mycket annat mot den. Det jag har överst på denna sida har jag i ett annat sammanhang också och där funkar det!! Nä usch nu får jag dåligt samvete över att ni är så snälla och hjälper till när jag inte själv kan hjälpa till =(

icaaq:

när jag skrev din kod så skrevs mitt UserID ut. Det var juh ganska bra vettja. Då finns det juh där.

Om du kollar i databasen, antar att det är access. Vad är fälten password och UserID för typ. Tal eller text?

va bra..då skriver du bara ut länken

<frame name="main" src="valkommen.asp?UserID=<%=strUserID%>">

Ja just det... På den andra sidan så hade jag tal, på denna sida är det text som UserID... Skall se om jag förstår hur man gör då...

<%
Set MinCon = Server.CreateObject("ADODB.Connection")
MinCon.Open "DSN=databas"
Set RS = MinCon.execute("SELECT * From personer WHERE UserID = " & Request.Form("UserID") & " AND losenord = '"&request.form("pwd")&"' ")
if rs.eof then
mincon.close
Set MinCon = nothing
set RS = nothing
response.redirect "../annansida.html"
end if
%>

Så här hade jag skrivit och jag hittar inget fel om det inte är andra datatyper i fälten.

[r]
Du har ju inte givit variabeln ett värde.
<frame name="main" src="valkommen.asp?UserID=<%=RS("UserID")%>">
[/r]

jag tror inte rs("UserID") är ett tal ....tänk dig själv om du ska logga i som nr 1

Sophie, jag tycker nog att du ska ta och läsa en bok så att du förstår vad du gör - det kommer hjälpa dig otroligt mycket!

Kolla på http://www.idg.se/webstudio/asp

Där kan du förhoppningsvis snappa upp ett och annat.

Pace svär inte....

kolla in www.webeye.nu istället....vide´s ASP skola rockar ju fett (iaf bra mycket bättre än Idg´s)

Jag brukar logga in användare som nummer.
Mycket lättare att hålla isär då eftersom varje användare har en unikt värde.
* Låter lite trött nu

Visserligen brukar jag aldrig använda querystring för sådana ändamål.

[REDIGERAR STORT]
INNNTTTEEE IDDGG!!
Då kommer du komma tillbaka med fler problem.
Känns som hälften av alla problem här på webforum härstammar från IDG/webstudio
Håller med. Gå på Vides skola istället.
Riktigt bra.
[REDIGERAR]