popup logind til "forside"
Hej venner.Nu har jeg i et par timer kigget på gamle spg osv men kunne ikke løse mit problem ud fra dem.
Jeg har et popup logind side hvor man skriver nickname & password
og hvis de findes skal popup vindue aut.lukkes og sendes til default.asp med session så jeg kan feks. skrive velkommen "brugernavn" osv
Jeg har lavet denne logind side ved hjælp af dreamweaver men som sagt kan jeg ikke få den til at virke som jeg vil.
Håber i vil hjælpe med at rette den til
<!--#include file="../Connections/Conn.asp" -->
<%
' *** Validate request to log in to this site.
MM_LoginAction = Request.ServerVariables("URL")
If Request.QueryString<>"" Then MM_LoginAction = MM_LoginAction + "?" + Request.QueryString
MM_valUsername=CStr(Request.Form("nickname"))
If MM_valUsername <> "" Then
MM_fldUserAuthorization=""
MM_redirectLoginFailed=""
MM_flag="ADODB.Recordset"
set MM_rsUser = Server.CreateObject(MM_flag)
MM_rsUser.ActiveConnection = MM_Conn_STRING
MM_rsUser.Source = "SELECT nickname, pwd"
If MM_fldUserAuthorization <> "" Then MM_rsUser.Source = MM_rsUser.Source & "," & MM_fldUserAuthorization
MM_rsUser.Source = MM_rsUser.Source & " FROM site_uye WHERE aktiv=1 AND nickname='" & Replace(MM_valUsername,"'","''") &"' AND pwd='" & Replace(Request.Form("pwd"),"'","''") & "'"
MM_rsUser.CursorType = 0
MM_rsUser.CursorLocation = 2
MM_rsUser.LockType = 3
MM_rsUser.Open
If Not MM_rsUser.EOF Or Not MM_rsUser.BOF Then
' username and password match - this is a valid user
Session("MM_Username") = MM_valUsername
If (MM_fldUserAuthorization <> "") Then
Session("MM_UserAuthorization") = CStr(MM_rsUser.Fields.Item(MM_fldUserAuthorization).Value)
Else
Session("MM_UserAuthorization") = ""
End If
if CStr(Request.QueryString("accessdenied")) <> "" And false Then
MM_redirectLoginSuccess = Request.QueryString("accessdenied")
End If
MM_rsUser.Close
Response.Redirect(MM_redirectLoginSuccess)
End If
MM_rsUser.Close
Response.write("Fejl")
End If
%>
<body leftmargin="0" topmargin="0" marginwidth="0" marginheight="0">
<table width="100%" class="tip1" border="0" cellspacing="1" cellpadding="1" bgcolor="#CCCCFF">
<form ACTION="<%=MM_LoginAction%>" name="form" method="POST">
<tr bgcolor="#9999FF" align="center">
<td colspan="2"><font color="#FFFFFF">Site Uyelik Sistemi</font></td>
</tr>
<tr bgcolor="#FFCC99">
<td width="28%">Nickname</td>
<td width="72%"> <input name="nickname" type="text" id="nickname" style="border-style: solid; border-width: 1; font-size : 9pt" size="17">
</td>
</tr>
<tr bgcolor="#FFCC99">
<td width="28%">Sifre</td>
<td width="72%"> <input type="password" name="pwd" style="border-style: solid; border-width: 1; font-size : 8pt" size="17">
</td>
</tr>
<tr bgcolor="#FFCC99" align="center">
<td colspan="2"> <input type="submit" name="login" value="Login-Basvuru" style="border-style: solid; border-width: 1; font-size : 9pt">
<hr size=1 color=blue> <font color=red><b><%=txt%></b></font><br> <a href="default.asp?modul=uyebasvuru2">[
Yeni Site Üyeligi ]</a> </td>
</tr>
</form>
</table>
</body>
