---
title: "Newbiee frågor"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/13916-newbiee-frågor"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "RDL"
published: "2002-01-20T19:41:00.000Z"
updated: "2002-01-20T20:22:00.000Z"
replies: 14
views: 523
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/13916-newbiee-frågor"
---

# Newbiee frågor

## #1 — RDL, 2002-01-20T19:41Z

Ingenting gör som det ska, inget mail skickas inga saker läggs in i databasen \*argh\*

```
<!-- #include file="adovbs.inc" -->
<%
Dim Status, epost, pass, error, Connect, Addera, CDOMAIL

Status	=	Request.Querystring("status")
If Status = "ok" Then
epost	=	Request.Form("epost")
pass	=	Request.Form("pass")
error	=	0

If epost = "" Then
error = 1
End If
If pass = "" Then
error = 1
End if

if error = 0 and Status	= "ok" Then

Set Connect = Server.CreateObject("ADODB.Connection")
Connect.Open "driver={Microsoft Access Driver (*.mdb)};dbq=d:\xxx\databasen.mdb" 

Set RecSet = Server.CreateObject("ADODB.Recordset")
Addera = "SELECT * FROM str_data"

RecSet.Open Addera, Connect, adOpenStatic, adLockOptimistic

RecSet.AddNew
RecSet("epost")	= epost
RecSet("pwd")	= pass
RecSet.Update
RecSet.Close
Connect.Close

Set CDOMail = Server.CreateObject("CDONTS.NewMail")
CDOMail.From = "lennart@stockticket.com"
CDOMail.To = epost
CDOMail.Subject = "Hej, du är registrerad bla bla bla"
CDOMail.Body = "_____________" &vbcrlf& "Användarnamn:" & epost &vbcrlf& "Lösenord: " &pass
CDOMail.Send

Set CDOMail = Nothing

%><html>
<head>
<title>Bli medlem</title>
</head>
<body>
<font face="verdana" size="2" color="black">Grattis du är nu medlem, dina användaruppgifer har skickats till din epostaddress</font>
</body>
</html><%
Else
%><html>
<head>
<title>Bli medlem</title>
</head>
<body>
<center>
<%If error = 1 then %>
<font face="verdana" size="2" color="Red">Du glömde att fylla i något där</font>
<%End if%>
<form method="POST" action="ny_medlem.asp?status=ok">
<font face="verdana" size="2" color="black">Epostadress</font><img src="pixel.gif" alt=" " width="10" height="1"><input type="text" name="epost" size="20"><br>
<font face="verdana" size="2" color="black">Lösenord</font><img src="pixel.gif" alt=" " width="30" height="1"><input type="text" name="pass" size="20"><br>
<input type="submit" value="Skicka" name="Skicka">
</form>
</center>
</body>
</html>
<%End if%>
```

\[Redigerat av RDL den 20 jan 2002\]

\[Redigerat av RDL den 20 jan 2002\]

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

## #2 — solbulle, 2002-01-20T19:44Z

Jag har total nollkoll men borde inte:

if error = 0 and Status = ok Then

vara:

if error = "0" and Status = "ok" Then

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

## #3 — @nders, 2002-01-20T19:45Z

Du har missat citationstecken runt ok:

```
if error = 0 and Status = [b]"ok"[/b] Then
```

Red: Och runt 0 som solbulle skrev ovan. Varför har du tal som strängar?

Mvh,

\[Redigerat av @nders den 20 jan 2002\]

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

## #4 — RDL, 2002-01-20T19:53Z

tack.. ändrade talen till bara tal:

```
If Status = "ok" Then
epost	=	Request.Form("epost")
pass	=	Request.Form("pass")
error	=	0

If epost = "" Then
error = 1
End If
If pass = "" Then
error = 1
End if

if error = 0 and Status = "ok" Then
```

Men nu så står det: Http 500 Internt server fel hmzz.. :(

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

## #5 — @nders, 2002-01-20T19:56Z

Se då till att stänga av Friendly error messages / Egna http-felmeddelanden i IE, så du får något riktigt att utgå ifrån.

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

## #6 — RDL, 2002-01-20T19:57Z

Kan inte.. De ligger på en netintense server.. :(

\[Redigerat av RDL den 20 jan 2002\]

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

## #7 — LarsG, 2002-01-20T19:57Z

Då ändrar du i explorer

tools -\> Internet options -\> Advanced

Där finns en rutan som heter

Show user friendly error messages 

Klicka av den så att du får se det rätta felet.

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

## #8 — RDL, 2002-01-20T20:01Z

Klickade bort visa egna egna http meddelanden.. men det funkade inte..

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

## #9 — @nders, 2002-01-20T20:02Z

Vad funkade inte? Får du fortfarande 500?

Man kan ju alltid prova att starta om IE...

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

## #10 — RDL, 2002-01-20T20:04Z

Yes, jag får fortfarande fram Http 500 Internt server fel.. 

Gällde det bara det: Show user friendly error messages för linux såg en linux pingvin där..

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

## #11 — @nders, 2002-01-20T20:06Z

Va?

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

## #12 — RDL, 2002-01-20T20:08Z

Är 'visa egna egna http meddelanden' = Show user friendly error messages  

Har win98 om det är till någon hjälp..

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

## #13 — solbulle, 2002-01-20T20:11Z

Jepp, har du klickat BORT det?

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

## #14 — RDL, 2002-01-20T20:18Z

Japp det har jag... :)

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

## #15 — @nders, 2002-01-20T20:22Z

Kan du ge oss en url till sidan?

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

---

Tråden på webben: https://www.webforum.nu/amne/asp/13916-newbiee-frågor