Notifikationer

Markér alle som læst Log ud

mjall0w Nybegynder

04. maj 2003 - 15:53 Der er 7 kommentarer og
1 løsning

End If fejl

Hej..
Når jeg bruger det her script får jeg følgende fejl:
Microsoft VBScript compilation error '800a03f6'

Expected 'End'

/default.asp, line 1293

Else

Og hvis jeg så sætter flere end if'er på virker det stadig ikke

Script-->

if Request.ServerVariables("REQUEST_METHOD") = "POST" then

'Variables
Dim mySmartUpload9, file9

'Object creation
Set mySmartUpload9 = Server.CreateObject("aspSmartUpload.SmartUpload")
On Error Resume Next

'Upload
mySmartUpload9.Upload

'Only if the file exist
If not mySmartUpload9.files.item(1).IsMissing Then

Dim Error
Error = False
If mySmartUpload9.form("username") = "" Then Error = True 'and response.write (" Du har ikke angivet dit Brugernavn ")
If mySmartUpload9.form("password") = "" Then Error = True 'and response.write (" Du har ikke angivet dit Password ")
If mySmartUpload9.form("email") = "" Then Error = True 'and response.write (" Du har ikke angivet din E-Mail ")
If mySmartUpload9.form("navn") = "" Then Error = True 'and response.write (" Du har ikke angivet hvad du Hedder ")
If mySmartUpload9.form("by") = "" Then Error = True 'and response.write (" Du har ikke angivet hvilken By du kommer fra ")
If mySmartUpload9.form("beskrivelse") = "" Then Error = True 'and response.write (" Du har ikke angivet en Beskrivelse af dig selv ")
If mySmartUpload9.form("Alder") = "" Then Error = True 'and response.write (" Du har ikke angivet din Alder ")
If mySmartUpload9.form("CPU") = "" Then Error = True 'and response.write (" Du har ikke angivet hvilken Processor/CPU du har ")
If mySmartUpload9.form("Moniter") = "" Then Error = True 'and response.write (" Du har ikke angivet hvilken Skærm du har ")
If mySmartUpload9.form("Grafikkort") = "" Then Error = True 'and response.write (" Du har ikke angivet hvilket Grafikkort du har ")
If mySmartUpload9.form("Gamernick") = "" Then Error = True 'and response.write (" Du har ikke angivet dit Gamernick (Gamernick er det du kalder dig når du spiller Online) ")
'If mySmartUpload9.form("billede") = "Ikon" Then Error = True
If Error Then
Response.Write("HUSK NU ALLE FELTER MED *UD FORAN SKAL UDFYLDES")
else

'sample with a physical path
mySmartUpload9.files.item(1).SaveAs("USERimages/" & mySmartUpload9.files.item(1).FileName)

Const adOpenKeyset = 1
Const adLockOptimistic = 3
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "PROVIDER=MSDASQL;DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("em.mdb") & ";UID=admin;PWD=;"

'Tilføjer brugeren til databasen
Set rs = Server.CreateObject("ADODB.RecordSet")
strSQL = "Select * From bruger"
rs.Open strSQL, Conn, adOpenKeyset, adLockOptimistic

'Display the properties of the current file
Response.Write("Din Profil er Oprettet")

'Tilføjer brugeren til databasen og sender ham/hende til login siden
rs.AddNew
rs("Username") = mySmartUpload9.form("username")
rs("Password") = mySmartUpload9.form("password")
rs("Email") = mySmartUpload9.form("email")
rs("Navn") = mySmartUpload9.form("navn")
rs("By") = mySmartUpload9.form("by")
rs("Beskrivelse") = mySmartUpload9.form("beskrivelse")
rs("Alder") = mySmartUpload9.form("alder")
rs("Cpu") = mySmartUpload9.form("cpu")
rs("Moniter") = mySmartUpload9.form("moniter")
rs("Grafikkort") = mySmartUpload9.form("grafikkort")
rs("Mus") = mySmartUpload9.form("mus")
rs("Musematte") = mySmartUpload9.form("musematte")
rs("Oplosning") = mySmartUpload9.form("oplosning")
rs("Sensitivity") = mySmartUpload9.form("sensitivity")
rs("gamernick") = mySmartUpload9.form("gamernick")
rs("icon") = mySmartUpload9.form("billede")
rs("access_level") = "User"
rs("billed") = mySmartUpload.files.item(1).FileName

rs.Update

rs.Close
Set rs = Nothing
Conn.Close
Set Conn = Nothing

Else

Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "PROVIDER=MSDASQL;DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("em.mdb") & ";UID=admin;PWD=;"

'Tilføjer brugeren til databasen
Set rs = Server.CreateObject("ADODB.RecordSet")
strSQL = "Select * From bruger"
rs.Open strSQL, Conn, adOpenKeyset, adLockOptimistic

'Tilføjer brugeren til databasen og sender ham/hende til login siden
rs.AddNew
rs("Username") = mySmartUpload9.form("username")
rs("Password") = mySmartUpload9.form("password")
rs("Email") = mySmartUpload9.form("email")
rs("Navn") = mySmartUpload9.form("navn")
rs("By") = mySmartUpload9.form("by")
rs("Beskrivelse") = mySmartUpload9.form("beskrivelse")
rs("Alder") = mySmartUpload9.form("alder")
rs("Cpu") = mySmartUpload9.form("cpu")
rs("Moniter") = mySmartUpload9.form("moniter")
rs("Grafikkort") = mySmartUpload9.form("grafikkort")
rs("Mus") = mySmartUpload9.form("mus")
rs("Musematte") = mySmartUpload9.form("musematte")
rs("Oplosning") = mySmartUpload9.form("oplosning")
rs("Sensitivity") = mySmartUpload9.form("sensitivity")
rs("gamernick") = mySmartUpload9.form("gamernick")
rs("icon") = mySmartUpload9.form("billede")
rs("access_level") = "User"
' rs("billed") = mySmartUpload.files.item(1).FileName

rs.Update
End If
end if
end if
'end if

Err.Clear
Set mySmartUpload = Nothing

<--Script

/Mjall0w

Synes godt om

roenving Novice

04. maj 2003 - 15:58 #1

Du mangler en end if på

If Error Then

så du skal sætte en en end if foran den else-sætning foran indsættelse:

Set Conn = Nothing
end if
Else

Set Conn = Server.CreateObject("ADODB.Connection")

Må jeg forøvrigt anbefale dig, at du rykker ind for hver kontrol-struktur, så har du bedre chance for at overskue ...

hth
jes

Synes godt om

roenving Novice

04. maj 2003 - 16:04 #2

Eller måske gør du det samme to gange?

Ja, det gør du, gennemskuet det har jeg ikke endnu ...

Synes godt om

roenving Novice

04. maj 2003 - 16:06 #3

Indrykning:

If not mySmartUpload9.files.item(1).IsMissing Then

Dim Error
Error = False
If mySmartUpload9.form("username") = "" Then Error = True 'and response.write (" Du har ikke angivet dit Brugernavn ")
.
.
.
If Error Then
Response.Write("HUSK NU ALLE FELTER MED *UD FORAN SKAL UDFYLDES")
else

osv.

Synes godt om

Slettet bruger

04. maj 2003 - 16:35 #4

Du mangler End If efter alle dine linier med
If mySmartUpload9.form("username") = "" Then Error = True <---- Skal have End If på

Synes godt om

roenving Novice

04. maj 2003 - 16:37 #5

>>bertie

da ikke, når de kun fylder een linje

Synes godt om

Slettet bruger

04. maj 2003 - 16:39 #6

Hmm, det mente jeg ellers at man skulle.

Synes godt om

Slettet bruger

04. maj 2003 - 16:47 #7

Prøv evt. at fjerne de kommentarer du har skrevet efter sætningerne med
If mySmartUpload9.form("username") = "" Then Error = True måske det kan være det som driller

Synes godt om

mjall0w Nybegynder

04. maj 2003 - 17:32 #8

Jeg har selv fundet ud af svaret med Form tjek og end if'en..
Tror det var noget med if Request.ServerVariables("REQUEST_METHOD") = "POST" then, men er ikke helt sikker..
Blev nød til at dele det op så en side hed page=opret_bruger og opretbruger.asp

/Mjall0w-

Synes godt om

Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Følg dette spørgsmål

Opret Preview

Programmeringssprog kurser

Kurser inden for grundlæggende programmering

Se alle Programmeringssprog kurser

Flere spørgsmål fra ASP kategorien

Titel	Indlæg	Oprettet	Seneste aktivitet
Persits.Upload Af bsn i ASP	8	17/09/202611:37	I dag 10:39
Jeg bakser med noget Database og If Then med ASP - hvad gør jeg galt? Af Peer i ASP	10	25/06/202622:20	04/09/202602:30
Tjek alle checkbox i form Af bsn i ASP	4	18/05/202601:57	19/05/202613:33
Lost focus Af bsn i ASP	1	07/11/202415:34	01/01/202514:58
ASP classic Af bsn i ASP	8	28/10/202423:11	30/10/202422:51

Se alle spørgsmål i kategorien Opret spørgsmål

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester

Alle kategorier på Eksperten

Seneste artiklerRSS