---
title: "MADY MADY"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/115598-mady-mady"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "Paze"
published: "2004-11-10T20:08:23.000Z"
updated: "2004-11-10T23:06:37.000Z"
replies: 15
views: 852
page: 1
pages: 1
language: "sv-SE"
site: "webForum — webforum.nu"
rights: "Upphovsrätten till varje inlägg tillhör dess författare."
attribution: "Citera som: webForum, https://www.webforum.nu/amne/asp/115598-mady-mady"
---

# MADY MADY

## #1 — Paze, 2004-11-10T20:08Z

NU står jag still igen!!!

Hittade ett asp script som jag tänkte mig använda till min hemsida för inloggning pbwebb_loggin V3.0.

Nu när jag lagt upp detta på min server så går det inte att logga in, får fel medelande error '8007007f'

/mapp/inc/do_login.asp , line 125

Tacksam om någon kan ge mig tipps på hur F.. jag skall komma vidare med mitt problem..

Paze

Permalänk: https://www.webforum.nu/p/115598

## #2 — joel_joel88, 2004-11-10T20:14Z

stavas det inte Mayday:)....

Visa kod tack

Permalänk: https://www.webforum.nu/p/1482248

## #3 — Paze, 2004-11-10T20:30Z

Hoppas jag gör rätt nu

\<head\>
  \<meta name="VI60_DTCScriptingPlatform" content="Server (ASP)"\>
  \<meta http-equiv="Content-Language" content="sv"\>
  \<meta http-equiv="Content-Type" content="text/html; charset=windows-1252"\>
  \<title\>PBWEBB LOGIN 3.0 - Logga In\</title\>
 \</head\>
\<script language='JavaScript' type='text/JavaScript' src='script.js'\>\</script\>
\<style type=text/css\>
\<!--
body { background: threedface; color: windowtext; margin: 0px; border-style: none }
td { font-size: 8pt; font-family: arial }
select { font-size: 8pt; font-family: arial }
input { font-size: 8pt; font-family: arial }
\--\>
  \</style\>
\<script language=javascript\>
\<!--// INGEN HÖGER KLICK PÅ DENNA SIDA
var message="";
function clickIE() {if (document.all) {(message);return false;}}
function clickNS(e) {if 
(document.layers\|\|(document.getElementById&&!document.all)) {
if (e.which==2\|\|e.which==3) {(message);return false;}}}
if (document.layers) 
{document.captureEvents(Event.MOUSEDOWN);document.onmousedown=clickNS;}
else{document.onmouseup=clickNS;document.oncontextmenu=clickIE;}
document.oncontextmenu=new Function("return false")
\--\>
  \</script\>
\<SCRIPT LANGUAGE=javascript\>
\<!--
function loginsubmit(form) {
missinginfo = "";
if (document.check.user.value == "") {
missinginfo += "\\n     -  User";
}
if (document.check.pass.value == "") {
missinginfo += "\\n     -  Pass";
}
if (missinginfo != "") {
missinginfo ="Dessa fält är blanka eller felinskrivna:\\n" +
"\____________________________\_\\n" +
missinginfo + 
"\\n____________________________\_\\n" +
"\\nVar vänlig fyll i alla fälten korrekt!";
alert(missinginfo);
return false;
}
else return true;
}
\--\>
  \</SCRIPT\>
\<% If Session("alert") = "no_member" then %\>
\<script language="javascript"\>
\<!--
alertmess = ("Pbwebb.com login informerar: \\n" +
"\____________________________\_\\n" +
"\\n  Du försöker logga in med fel" +
"\\n  användaruppgifter, eller så " +
"\\n  skrev du fel." +
"\\n  Ditt ip är registrerat\\n" +
"\\n____________________________\_\\n" +
"\\n Åtgärda felen och försök igen !");
alert(alertmess);
\--\>
  \</script\>
\<% Session("alert") = ""
End If%\>

\<% If Request.Querystring("do") = "" Then %\>
\<body onLoad="document.form.user.focus();" onunload="goBackUrl('../default.asp?link=')"\>

\<form method='post' action='do_login.asp?do=check' name='check' onSubmit='return loginsubmit()'\>

\<center\>
\<img border="0" src="gfx/login.gif"\>
\<table cellspacing=0 cellpadding=0 align=center border=0\>
  \<tbody\>
    \<tr\>
      \<td align=middle\>
        \<fieldset align=center width="290"\>
          \<legend align=left\>SECURE LOGIN V3.0\</legend\>
          \<table cellspacing=4 align=center border=0\>
            \<tbody\>
              \<tr\>
                \<td nowrap align=right width=40\>User: \</td\>
                \<td nowrap\>\<input size=35 name=user\>\</td\>
              \</tr\>
              \<tr\>
                \<td nowrap align=right\>Pass: \</td\>
                \<td nowrap\>\<input size=35 name=pass type="password"\>\</td\>
              \</tr\>
            \</tbody\>
          \</table\>
        \</fieldset\> 
      \</td\>
    \</tr\>
    \<tr\>
      \<td align=middle colspan=2\>
        \<table cellpadding=3\>
          \<tbody\>
            \<tr\>
              \<td align=middle\> 
                \<input type=submit value="Login"\> 
                \<input type=reset value=Reset\> 
              \</td\>
            \</tr\>
          \</tbody\>
        \</table\>
      \</td\>
    \</tr\>
  \</tbody\>
\</table\>
\</center\>
\</form\>
\<% End If 

If Request.Querystring("do") = "check" Then
  Set Cn = Server.CreateObject("ADODB.Connection")
  Cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("dbase/sql.mdb")
  Set Rs = Cn.Execute("SELECT \* FROM login")
  
  If Rs.EOF then
    Session("alert") = "no_member"
    Response.Redirect "do_login.asp?do="
  Else
  
    Do Until RS.EOF
     If Request.Form("user") = Rs("user") AND Request.Form("pass") = Rs("pass") Then
       Session("user") = Rs("user")
       Session("user_level") = Rs("page")
       Session.TimeOut = 20
       Response.Redirect "do_login.asp?do=login"
     End If
    RS.MoveNext
    Loop 
    
    	strIpReg = Request.ServerVariables("REMOTE_ADDR")
    
        Cn.Execute("INSERT INTO ip " &\_
        "(\[ip\],\[username\],\[password\],\[date\])" &\_
	"VALUES('"& strIpReg &"','"& Request.Form("user") &"', "&\_
	"'"& Request.Form("pass") &"','"& Now &"') ")

    	Session("alert") = "no_member"
    	Session("ip") = Request.ServerVariables("REMOTE_ADDR")
    	Response.Redirect "do_login.asp?do="
	
  End If
  Rs.Close : Set Rs = Nothing
  Cn.Close : Set Cn = Nothing
End If

If Request.Querystring("do") = "login" then

  Response.Write "\<html\>\<head\>\<title\>! INLOGGAD\</title\>\</head\>" & VbCrLf
  Response.Write "\<body onload='setTimeout(window.close, 1500)'\>\<center\>\<br\>\<br\>" & VbCrLf
  Response.Write "\<font face=verdana size=+2 color=black\>Inloggad\</font\>\</center\>\</body\>\</html\>" & VbCrLf

End If 
%\>
\</body\>
\</html\>

Permalänk: https://www.webforum.nu/p/1482262

## #4 — Gein, 2004-11-10T20:37Z

Ett tips bara! Använd kod-taggarna så syns dina tabbar och texten blir mycket mer lättläst, kanske får du dessutom ett snabbare svar på frågan också.

Permalänk: https://www.webforum.nu/p/1482266

## #5 — Josef, 2004-11-10T20:40Z

Sedan får du gärna markera raden som genererar felmeddelandet...

Permalänk: https://www.webforum.nu/p/1482268

## #6 — Paze, 2004-11-10T20:45Z

Sorry boys and girls är helt ny på asp och det språk ni skriver till mig på, så jag ser ut som en fågelholk för condorer just nu.

Vet inte villken rad det är Josef, vet bara att när man efter att man har angivet sina inloggnings uppgifter ochklickar på loggin så kommer ovan angivet fel...

Permalänk: https://www.webforum.nu/p/1482271

## #7 — Josef, 2004-11-10T20:46Z

Det står att det är rad 125.

Jag får det till raden:

```
Response.Redirect "do_login.asp?do="
```

Permalänk: https://www.webforum.nu/p/1482272

## #8 — Paze, 2004-11-10T20:48Z

Hur räknar jag fram villken rad det är?
räknas alla blanka rader ?

Permalänk: https://www.webforum.nu/p/1482274

## #9 — Paze, 2004-11-10T20:50Z

Kan felet ligga på default.asp villket är sidan som man loggar in ifrån??

Permalänk: https://www.webforum.nu/p/1482275

## #10 — joel_joel88, 2004-11-10T20:58Z

nej inte om du får felmeddelandet på andra sidan. Du skrev att det var fel på rad 125, markera den raden

Permalänk: https://www.webforum.nu/p/1482281

## #11 — solbulle, 2004-11-10T20:59Z

Riktigt långsökt lösning, säkert inte det som är felet men det är vad jag hittar när jag söker på ditt fel..

Btw, fungerar andra aspsidor med databashämtningar för dig?

<http://www.webforum.nu/showthread.php?s=&forumid=22&threadid=91135&highlight=8007007f>
<http://www.dbforums.com/showpost.php?p=3647613&postcount=5>
Hela tråden: <http://www.dbforums.com/t873684.html>
<http://groups.google.com/groups?q=%228007007F+the+fix%22&hl=fr&lr=&ie=UTF-8&selm=081601c309fd%242ac4c3e0%24a001280a%40phx.gbl&rnum=1>

Jag tror att rad 125 kommer att peka på detta kodparti:

```
Set Cn = Server.CreateObject("ADODB.Connection")
Cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("dbase/sql.mdb")
Set Rs = Cn.Execute("SELECT * FROM login")
```

Permalänk: https://www.webforum.nu/p/1482282

## #12 — Paze, 2004-11-10T21:06Z

Ja jag kan komma oin på andra asp sidor på nätet allt funkar så långt
Men även denna inloggningen funka när jag kör den på IIS

Permalänk: https://www.webforum.nu/p/1482287

## #13 — solbulle, 2004-11-10T22:50Z

Hm... nu förstår jag inte riktigt.
Fungerar den koden du visar på en server men inte på en annan?
Andra aspsidor fungerar alltså där denna kod inte fungerar?

Permalänk: https://www.webforum.nu/p/1482338

## #14 — Paze, 2004-11-10T22:57Z

Ja när jag kör den i localhost så funkar den delvis, det går att logga in men inte lägga till nya loggin uppgifter dvs.

Permalänk: https://www.webforum.nu/p/1482342

## #15 — Paze, 2004-11-10T23:02Z

Sen när det gäller servern som sidan ligger på har dem precis öppnat den för asp så det kan lika gärna vara där men server teknikern säger att det skall fungera men han är inte 100 på det.

har ingen annan asp sida som jag vet fungerar som jag kan testa med...

Permalänk: https://www.webforum.nu/p/1482344

## #16 — solbulle, 2004-11-10T23:06Z

Då tror jag att de måste se över och uppdatera sin server, typ som i länkarna jag postade lite högre upp i tråden.

Permalänk: https://www.webforum.nu/p/1482345

---

Tråden på webben: https://www.webforum.nu/amne/asp/115598-mady-mady
