Losen1 = RS("losen1")
Losen2 = RS("losen2")
Frågan#1
Hej jag vill göra så lösen o användar namn hämtas ur databasen, så folk senare kan byta lösen o användarnamn..
Detta är koden:
<%Response.Buffer=True
Response.Expires=0
Session.Lcid = 1053
Response.Clear
strConnect = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source="& _
Server.MapPath("db/top.mdb")
Set objConn = Server.CreateObject("ADODB.Connection")
Set rs = Server.CreateObject("ADODB.Recordset")
objConn.open strConnect
SQL = "SELECT * FROM info"
rs.Open SQL, objConn
Losen1 = "[B]<%=RS("losen1")%>[/B] "
Losen2 = "[B]<%=RS("losen2")%>[/B] "
Secure = "UghBugh"
%>
<!--
##########################################
Åsa Gruvsjö ©
[url]www.gruvsjo.com[/url]
[email]Asa@gruvsjo.com[/email]
Fri att använda om ni låter copyrightkoden stå kvar!
##########################################
-->
<html>
<head>
<title>Admin</title>
<link rel="stylesheet" href="../cssmotor/style_main.css" type="text/css">
<script src="js.js"></script>
</head>
<body bgcolor="#FFFFFF" style="margin: 0px;">
<center>
<TABLE BGCOLOR="#D8D8D8" ALIGN=TOP BORDER=0 CELLSPACING=0 CELLPADDING=0 WIDTH=100% HEIGHT=100% >
<TR> <TD HEIGHT=92 COLSPAN=7 > <IMG SRC="../images/e.gif" WIDTH="3%"> <FONT FACE=ARIAL COLOR="#EFEFEF" SIZE=50% >
admin <b>Afd</b>
</FONT> </B> </TD> </TR>
<TR>
<TD HEIGHT=19 ALIGN="LEFT" BGCOLOR="#C0C0C0"><B>
</B></TD></TR>
<TR>
<TD BGCOLOR="#E3E3E3">
<TABLE width="400" height="100%" cellpadding="15" cellspacing="0">
<tr>
<td valign="top">
<%If Request.QueryString("do") = "" Then%>
<table width="400" cellpadding="4" cellspacing="0">
<form name="loggain" method="post" action="admin_index.asp?do=check">
<tr>
<td><b>Bruger navn</b></td>
<td><input type="text" name="admin1" size="15">
</tr>
<tr>
<td><b>Password</b></td>
<td><input type="password" name="admin2" size="15">
</tr>
<tr>
<td style="border-top: 0px solid #000000"> </td>
<td style="border-top: 0px solid #000000">
<input type="image" src="../images/ico_login.gif" value="Login" class="btn" alt="login!" border="0" width="58" height="22">
</td>
</tr>
</form>
<script type="text/javascript" language="JavaScript">
document.loggain.admin1.focus();
</script>
<%If Session("mess") <> "" Then%>
<tr>
<td align="center" colspan="2" style="border-top: 1px solid #000000"><b><%=Session("mess")%><%Session("mess") = ""%></b></td>
</tr>
<%End If%>
</table>
<%End If
If Request.QueryString("do") = "check" Then
If Request.Form("admin1") = Losen1 AND Request.Form("admin2") = Losen2 Then
Session("sidor") = Secure
Session.TimeOut = 40
Response.Redirect "admin_index.asp?do=inne"
Else
Response.Redirect "admin_index.asp"
End If
End If
If Request.QueryString("do") = "inne" Then%>
<table border="0" width="400" cellpadding="4" cellspacing="0">
<tr>
<td height="25" style="font-size: 14px;"> <a href="admin_top.asp?do=inne&action=change&id=25"> <img src="../images/ico_admin_s.gif" align="absmiddle" border="0"> Afdelings navn</a></td>
</tr>
<tr>
<td height="25" style="font-size: 14px;"> <a href="admin.asp?do=inne"> <img src="../images/ico_admin_s.gif" align="absmiddle" border="0"> Afdelings sider</a></td>
</tr>
</table>
<% End If
Set Conn = Nothing%>
</td>
</tr>
</table>
</td>
</tr>
</table>
</center>
</font>
</body>
</html>
Men jag får bara felmeddelande hela tiden:
Der opstod en Microsoft VBScript-kompileringsfejl fejl '800a0401'
Slut på sætning var ventet
/test/okonomi/admin_index.asp, linje 19
Losen1 = "<%=RS("afdnavn")
-----------------^
Antar att det har något att göra med Att objektet inte är öppet eller något? Jag behöver hjälp iaf, för detta är långt över det lilla jag kan om asp