---
title: "Nu funkar det...men nåt annat strular...."
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/74179-nu-funkar-det-men-nåt-annat-strular/page3"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "BulletBoyCrime"
published: "2003-04-15T16:48:05.000Z"
updated: "2003-04-23T19:09:08.000Z"
replies: 110
views: 1571
page: 3
pages: 6
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/74179-nu-funkar-det-men-nåt-annat-strular"
---

# Nu funkar det...men nåt annat strular....

_Sida 3 av 6._

## #41 — BulletBoyCrime, 2003-04-17T21:46Z

Det blir nog lite svårt att lägga upp en länk....
Jag kan inte vara inne på mycket på nätet och ipadressen byts varje gång jag loggar ut/in och den ligger på min PWS.
Däremot kan jag lägga upp hela koden....men det blir rejält mycket kod.
Here goes;

```
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML>
<HEAD>
<TITLE> Now you are registered! -- Crimea Bay </TITLE>
</HEAD>
<%
Function SQLSafe(strText)
     SQLSafe = Replace (strText, "'", "''")
End function

Set Connect = Server.CreateObject("ADODB.Connection")
  Connect.Open "driver={MySQL ODBC 3.51 Driver}; server=localhost; uid=root; password= ; database=crimea"
  Addera = "SELECT * FROM players"

  Connect.Open Addera, Connect
   
   Dim Name, Password, Title, Perk, Realname, Phone, Country, Cash, Health, Curhealth, wski, eski, pski, sski, cski, hski, dski, duski, lski, enmax, encur, honor

   Name = Request.Form("name")
   Password = Request.Form("password")
   Title = Request.Form("title")
   Perk = Request.Form("perk")
   Realname = Request.Form("persname")
   Phone = Request.Form("phone")
   Country = Request.Form("country")
   Cash = 15000
   Health = 100
   Curhealth = 100

   If Request.Form("perk") = 1 Then
   wski = 1
   eski = 1
   pski = 1
   sski = 1
   cski = 1
   hski = 1
   dski = 1
   duski = 1
   lski = 1
   enmax = 100
   encur = 75
   honor = 20
   Elseif Request.Form("perk") = 2 Then
   wski = 3
   eski = 0
   pski = 0
   sski = 0
   cski = 0
   hski = 0
   dski = 3
   duski = 0
   lski = 0
   enmax = 100
   encur = 75
   honor = 23
   Elseif Request.Form("perk") = 3 Then
   wski = 0
   eski = 0
   pski = 0
   sski = 0
   cski = 6
   hski = 0
   dski = 0
   duski = 0
   lski = 0
   enmax = 100
   encur = 75
   honor = 23
   Elseif Request.Form("perk") = 4 Then
   wski = 0
   eski = 0
   pski = 0
   sski = 0
   cski = 0
   hski = 0
   dski = 0
   duski = 0
   lski = 0
   enmax = 125
   encur = 100
   honor = 20
   Elseif Request.Form("perk") = 5 Then
   wski = 0
   eski = 5
   pski = 0
   sski = 0
   cski = 0
   hski = 0
   dski = 4
   duski = 0
   lski = 0
   enmax = 100
   encur = 75
   honor = 20
   Elseif Request.Form("perk") = 6 Then
   wski = 2
   eski = 0
   pski = 3
   sski = 0
   cski = 0
   hski = 0
   dski = 2
   duski = 2
   lski = 0
   enmax = 100
   encur = 75
   honor = 20
   Elseif Request.Form("perk") = 7 Then
   wski = 0
   eski = 0
   pski = 0
   sski = 0
   cski = 0
   hski = 0
   dski = 0
   duski = 0
   lski = 9
   enmax = 100
   encur = 75
   honor = 20
   Elseif Request.Form("perk") = 8 Then
   wski = 0
   eski = 0
   pski = 0
   sski = 0
   cski = 0
   hski = 5
   dski = 0
   duski = 4
   lski = 0
   enmax = 100
   encur = 75
   honor = 20
   Elseif Request.Form("perk") = 9 Then
   wski = 0
   eski = 0
   pski = 0
   sski = 9
   cski = 0
   hski = 0
   dski = 0
   duski = 0
   lski = 0
   enmax = 100
   encur = 75
   honor = 20

   strSQL = "INSERT INTO players (name, password, title, perk, realname, phone, country, cash, health, curhealth, wepskill, expskill, protect, spyskill, ccskill, hokskill, driskill, druskill, lawskill, energymax, energycur, honor) VALUES ('" & SQLSafeName & "', '" & SQLSafePassword & "', " & SQLSafeTitle & ", " & SQLSafePerk & ", '" & SQLSafeRealname & "', '" & SQLSafePhone & "', '" & SQLSafeCountry & "', " & Cash & ", " & Health & ", " & Curhealth & ", " & wski & ", " & eski & ", " & pski & ", " & sski & ", " & cski & ", " & hski & ", " & dski & ", " & duski & ", " & lski & ", " & enmax & ", " & encur & ", " & honor & ")" 
   Connect.Execute (strSQL)
   
%>
<BODY bgcolor=#000000 text=#FFFFFF Link=#FFFFFF Alink=#FFFFFF VLINK=#FFFFFF>
<TABLE>
<TR>
	<TD width=333 height=100></TD>
	<TD width=333 height=100></TD>
	<TD width=333 height=100></TD>
</TR>
<TR>
	<TD></TD>
	<TD valign=top align=center><FONT SIZE="" COLOR=""><H1>Done!</H1></FONT><BR><BR>
	Your Criminal Alias is:<% =Request.Form("name") %><BR><BR>
	Your password is:<% =Request.Form("password") %><BR><BR>
    <%
	If Request.Form("title") = 1 Then
	Response.Write  "Your Title is: Hitman"
	ElseIf Request.Form("title") = 2 Then
	Response.Write  "Your Title is: Spy"
	ElseIf Request.Form("title") = 3 Then
	Response.Write  "Your Title is: Nailer"
	ElseIf Request.Form("title") = 4 Then
	Response.Write  "Your Title is: Pimp"
	ElseIf Request.Form("title") = 5 Then
	Response.Write  "Your Title is: Dealer"
	ElseIf Request.Form("title") = 6 Then
	Response.Write  "Your Title is: Survivor"
	ElseIf Request.Form("title") = 7 Then
	Response.Write  "Your Title is: Driver"
	ElseIf Request.Form("title") = 8 Then
	Response.Write  "Your Title is: Lawyer"
	ElseIf Request.Form("title") = 9 Then
	Response.Write  "Your Title is: Explosives Expert"
	Else
	Response.Write  "You didn´t pick a title."
	End If
	Connect.Close
	%>
	<P>Log in <A HREF="crimea.asp">HERE</A></P>
	</TD>
	<TD></TD>
</TR>
<TR>
	<TD></TD>
	<TD></TD>
	<TD></TD>
</TR>
</TABLE>
</BODY>
</HTML>
```

Phew........Tack och lov för kopiera/klistra in :e
Var ligger felet nu då :q

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

## #42 — solbulle, 2003-04-17T21:55Z

Tror du ska peta in en:
 End If

Precis ovanför din SQL-sats.

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

## #43 — solbulle, 2003-04-17T21:59Z

Sen tror jag du kan kapa i allafall några rader kod genom att ändra din poäng(?)grej till detta:

```
   wski = 0
   eski = 0
   pski = 0
   sski = 0
   cski = 0
   hski = 0
   dski = 0
   duski = 0
   lski = 0
   enmax = 0
   encur = 0
   honor = 0

If Request.Form("perk") = 1 Then
   wski = 1
   eski = 1
   pski = 1
   sski = 1
   cski = 1
   hski = 1
   dski = 1
   duski = 1
   lski = 1
   enmax = 100
   encur = 75
   honor = 20
   Elseif Request.Form("perk") = 2 Then
   wski = 3
   dski = 3
   enmax = 100
   encur = 75
   honor = 23
   Elseif Request.Form("perk") = 3 Then
   cski = 6
   enmax = 100
   encur = 75
   honor = 23
   Elseif Request.Form("perk") = 4 Then
   enmax = 125
   encur = 100
   honor = 20
   Elseif Request.Form("perk") = 5 Then
   eski = 5
   dski = 4
   enmax = 100
   encur = 75
   honor = 20
   Elseif Request.Form("perk") = 6 Then
   wski = 2
   pski = 3
   dski = 2
   duski = 2
   enmax = 100
   encur = 75
   honor = 20
   Elseif Request.Form("perk") = 7 Then
   lski = 9
   enmax = 100
   encur = 75
   honor = 20
   Elseif Request.Form("perk") = 8 Then
   hski = 5
   duski = 4
   enmax = 100
   encur = 75
   honor = 20
   Elseif Request.Form("perk") = 9 Then
   sski = 9
   enmax = 100
   encur = 75
   honor = 20
End If
```

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

## #44 — Jesper T, 2003-04-17T22:08Z

En annan sak du skulle kunna göra är att skippa dessa variabler:

```
   wski = 0
   eski = 0
   pski = 0
...osv.
```

Och istället göra en splitt av Request.Form("perk"). ex.

```
 <input type="radio" name="perk" value="0|0|0|9|0|0|0|0|0|1|0|0|75|20">

och på andra sidan:
Dim perk
perk=split(Request.Form("perk"),"|")
'sqlkoden
...." & perk(0) & ", " & perk(1) & ", " & perk(2) & ", " & perk(3) osv..
```

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

## #45 — BulletBoyCrime, 2003-04-17T22:12Z

Ojjj..............den Ifen glömde jag............ :r
Hur fungerar den här splitten då?
Jag förstår inte riktigt :r ;)
Så man kan skippa alla "tomma" variabler?
Det var ju bra :e
Fast först måste jag testa att lägga in End If till den långa ifen :birp
Tack!

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

## #46 — BulletBoyCrime, 2003-04-17T22:16Z

\*suck\* tillbaka på ruta ett..........
Nu kommer detta felmeddelandet:

> Microsoft OLE DB Provider for ODBC Drivers error '80004005' 
> 
> \[MySQL\]\[ODBC 3.51 Driver\]Can't connect to MySQL server on 'localhost' (10061) 
> 
> /crimea bay/registered.asp, line 12

Vad är det nu för fel x(
Jag blir lite smått förbannad på den himla mySQLconnectionen......

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

## #47 — Jesper T, 2003-04-17T22:30Z

Måste bara fråga, varför vill du öppna databasen och göra en select?

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

## #48 — solbulle, 2003-04-17T22:36Z

Det vill han nog inte..
Addera-raden samt den under ska väl bort va?

Jag skulle nog även passa på att flytta ner hela databaskopplingen till precis innan Executen sker, även stänga direkt efter.

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

## #49 — Jesper T, 2003-04-17T22:39Z

Presajs!
Databaser skall öppnas så sent som möjligt samt stängas så fort som möjligt. Basta!

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

## #50 — BulletBoyCrime, 2003-04-17T23:25Z

Fixat! ;)
Men kan ni hjälpa mig med felmeddelandet, det förändras inte(fast nu är det line 144:

> Microsoft OLE DB Provider for ODBC Drivers error '80004005' 
> 
> \[MySQL\]\[ODBC 3.51 Driver\]Can't connect to MySQL server on 'localhost' (10061) 
> 
> /crimea bay/registered.asp, line 144

Måste jag ange ipnummer eller vad är fel :q

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

## #51 — Jesper T, 2003-04-17T23:33Z

har du tagit bort detta:
Addera = "SELECT \* FROM players"
Connect.Open Addera, Connect
?

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

## #52 — BulletBoyCrime, 2003-04-17T23:33Z

Jupp.

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

## #53 — Jesper T, 2003-04-17T23:37Z

Det verkar vara något databasstrul då. Har du fått databasen att rulla överhuvudtaget?

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

## #54 — BulletBoyCrime, 2003-04-17T23:38Z

Jag vet inte riktigt hur du mnar med rulla..... :r
Men jag har dragit upp mySQL Front och skapat databasen, om det är det du menar.
Håll i spakarna.........jag kanske vet vad som är fel...........
En sekund.

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

## #55 — BulletBoyCrime, 2003-04-17T23:42Z

Buuuuuuuuuhuuuuuuuu........
Jag fattade vad som var fel, jag hade inte min mySQL server igång.Men nu är det nåt SQLstrul.....usch.
Ta en titt:

> **uschliga felmeddelandet skrev:**
>
> Microsoft OLE DB Provider for ODBC Drivers error '80040e14' 
> 
> \[MySQL\]\[ODBC 3.51 Driver\]\[mysqld-4.0.12\]You have an error in your SQL syntax. Check the manual that corresponds to your MySQL server version for the right syntax to use near ' , '', '', '', 15000, 100, 100, , , , , , , , , , , , )' at lin 
> 
> /crimea bay/registered.asp, line 147

Bläää.........jag kan knappt ett dyft om SQL, hur tusan ska jag kunna hitta felet :q

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

## #56 — Sebbe, 2003-04-17T23:49Z

Jag antar att det beror på att du inte kan ha null som ett värde i databasen. Hur ser SQL-satsen ut?

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

## #57 — BulletBoyCrime, 2003-04-17T23:51Z

Här kommer den:

```
 strSQL = "INSERT INTO players (name, password, title, perk, realname, phone, country, cash, health, curhealth, wepskill, expskill, protect, spyskill, ccskill, hokskill, driskill, druskill, lawskill, energymax, energycur, honor) VALUES ('" & SQLSafeName & "', '" & SQLSafePassword & "', " & SQLSafeTitle & ", " & SQLSafePerk & ", '" & SQLSafeRealname & "', '" & SQLSafePhone & "', '" & SQLSafeCountry & "', " & Cash & ", " & Health & ", " & Curhealth & ", " & wski & ", " & eski & ", " & pski & ", " & sski & ", " & cski & ", " & hski & ", " & dski & ", " & duski & ", " & lski & ", " & enmax & ", " & encur & ", " & honor & ")" 
   Connect.Execute (strSQL)
```

Har ingen aning om var jag ska börja........ :r
Tack för att ni hjälper till så mycket :birp

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

## #58 — Sebbe, 2003-04-17T23:57Z

Se till så att alla variabler som SQL-satsen innehåller inte är null (alltså, de måste innehålla ett värde, inte vara tomma)!

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

## #59 — BulletBoyCrime, 2003-04-17T23:58Z

Ah.....så ingen SQLinsertvariabel får vara = 0?
För då måste saker ändras.........

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

## #60 — Jesper T, 2003-04-17T23:59Z

0 får de väl vara men inte null

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

---

Tråden på webben: https://www.webforum.nu/amne/asp/74179-nu-funkar-det-men-nåt-annat-strular/page3  
Föregående sida: https://www.webforum.nu/amne/asp/74179-nu-funkar-det-men-nåt-annat-strular/page2.md  
Nästa sida: https://www.webforum.nu/amne/asp/74179-nu-funkar-det-men-nåt-annat-strular/page4.md