Avatar billede rr-web Nybegynder
16. december 2002 - 10:28 Der er 13 kommentarer og
1 løsning

tom variabel

Hejsa
Jeg har et lille problem

Jeg overfør nogle data fra en form
og jeg vil gerne have lavet sådan at hvis der ikke er indtastede nogle data i kategori så skal den selv skrive c:\minsti\minfil i min db
jeg har ved lagt min kode nedenstående:

<!---#include file="forbindelse.asp"--->


<%

set vare= server.createobject("adodb.recordset")
vare.open "varer", database, 2, 2



Set Upload = Server.CreateObject("Persits.Upload")
Count = Upload.Save("c:\webs\butik\gfx")
   
Set File = Upload.Files("billede")

vare.addnew
vare("billedelink") = file.path
vare("varenavn") = upload.form("varenavn")
vare("varebeskrivelse") = upload.form("beskrivelse")
vare("pris") = upload.form("pris")
kategori = upload.form("kategori")
vare.update
vare.close



%>
Avatar billede rr-web Nybegynder
16. december 2002 - 10:33 #1
ups... forkerte kode.. her er den rigtige


<!---#include file="forbindelse.asp"--->


<%

set vare= server.createobject("adodb.recordset")
vare.open "varer", database, 2, 2



Set Upload = Server.CreateObject("Persits.Upload")
Count = Upload.Save("c:\webs\butik\gfx")
   
Set File = Upload.Files("billede")

vare.addnew
vare("billedelink") = file.path
vare("varenavn") = upload.form("varenavn")
vare("varebeskrivelse") = upload.form("beskrivelse")
vare("pris") = upload.form("pris")
vare("kategori") = upload.form("kategori")
vare.update
vare.close



%>
Avatar billede lifeweb Nybegynder
16. december 2002 - 10:36 #2
er der tale om en variabel kan du altid bare skrive ex:
if request("variabel") <> "" then
variabel = request("variabel")
else
variabel = "min værdi"
end if

Håber svaret ka bruges!!!
Avatar billede rr-web Nybegynder
16. december 2002 - 10:41 #3
ja men hvad skal jeg så gør for at føre min værdi over i min db ?
Avatar billede eagleeye Praktikant
16. december 2002 - 10:44 #4
du kan lave denne linie om:
vare("kategori") = c

Til at tjekke om kategori er tom..

if upload.form("kategori") = "" then
  tempStr = "c:\minsti\minfil"
else
  tempStr = upload.form("kategori")
end if
vare("kategori") = tempStr
Avatar billede eagleeye Praktikant
16. december 2002 - 10:45 #5
linien
vare("kategori") = c

skulle være:
vare("kategori") = upload.form("kategori")
Avatar billede rr-web Nybegynder
16. december 2002 - 12:45 #6
ehhh nu er  jeg helt forvirret.... for det første kan man ikke benytte request da man kalder binary
er der ikke nogen der lige gider og genskrive så det passer ind i min kode:
<%

set vare= server.createobject("adodb.recordset")
vare.open "varer", database, 2, 2



Set Upload = Server.CreateObject("Persits.Upload")
Count = Upload.Save("c:\webs\butik\gfx")
   
Set File = Upload.Files("billede")






vare.addnew
vare("billedelink") = file.path




vare("varenavn") = upload.form("varenavn")
vare("varebeskrivelse") = upload.form("beskrivelse")
vare("pris") = upload.form("pris")
vare("kategori") = upload.form("kategori")
vare.update
vare.close



%>
Avatar billede eagleeye Praktikant
16. december 2002 - 12:51 #7
<%

set vare= server.createobject("adodb.recordset")
vare.open "varer", database, 2, 2



Set Upload = Server.CreateObject("Persits.Upload")
Count = Upload.Save("c:\webs\butik\gfx")
   
Set File = Upload.Files("billede")






vare.addnew
vare("billedelink") = file.path




vare("varenavn") = upload.form("varenavn")
vare("varebeskrivelse") = upload.form("beskrivelse")
vare("pris") = upload.form("pris")
if upload.form("kategori") = "" then
  tempStr = "c:\minsti\minfil"
else
  tempStr = upload.form("kategori")
end if
vare("kategori") = tempStr
vare.update
vare.close



%>
Avatar billede rr-web Nybegynder
16. december 2002 - 12:55 #8
det jeg skal tjekke om er tom er i virklig heden
Set File = Upload.Files("billede")

og for at tjekke om den er tom gør jeg flg:
if file = "" then
  tempStr = "c:\minsti\minfil"
else
  tempStr = upload.form("kategori")
end if

men så får jeg en fejl om at Objektvariablen er ikke angivet
Avatar billede eagleeye Praktikant
16. december 2002 - 13:15 #9
Så prøv at ændre -..:

vare("billedelink") = file.path


Til:

if isEmpty(Upload.Files("billede")) then
  vare("billedelink") = "c:\minsti\minfil"
else
  vare("billedelink") = file.path
end if
Avatar billede rr-web Nybegynder
16. december 2002 - 13:27 #10
hehe.. stadig fejl.. jeg får denne fejl Et objekt er obligatorisk: 'File'

og koden ser sådan her ud:

<%

set vare= server.createobject("adodb.recordset")
vare.open "varer", database, 2, 2



Set Upload = Server.CreateObject("Persits.Upload")
Count = Upload.Save("c:\webs\butik\gfx")
   
Set File = Upload.Files("billede")





vare.addnew

if isEmpty(Upload.Files("billede")) then
  vare("billedelink") = "c:\webs\butik\gfx\kamera.jpg"
else
  vare("billedelink") = file.path
end if

vare("varenavn") = upload.form("varenavn")
vare("varebeskrivelse") = upload.form("beskrivelse")
vare("pris") = upload.form("pris")
vare("kategori") = upload.form("kategori")
vare.update
vare.close



%>
Avatar billede eagleeye Praktikant
16. december 2002 - 13:42 #11
Hvilken linie er det den fejler?
Avatar billede rr-web Nybegynder
16. december 2002 - 13:43 #12
line 26
Avatar billede eagleeye Praktikant
16. december 2002 - 13:50 #13
Prøv at lave tjekket sådan hher:


Set File = Upload.Files("billede")
If Not File Is Nothing Then
  vare("billedelink") = File.Path
Else
  vare("billedelink") = "c:\webs\butik\gfx\kamera.jpg"
End If
Avatar billede rr-web Nybegynder
16. december 2002 - 13:53 #14
takker mange gange for den gode service og hjælp :)
Avatar billede 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.

Loading billede Opret Preview
Kategori
Kurser inden for grundlæggende programmering

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