Notifikationer

Markér alle som læst Log ud

hanne-rk Nybegynder

30. marts 2003 - 23:51 Der er 17 kommentarer og
1 løsning

del et request resultat ved ,

jeg vil gerne dele et request resultat som er adskilt med et komma.

eks. region 1,action (fra en rulleliste på foregående side)

så "region 1" bliver en værdi = del1 og action bliver en anden værdi = del1

sådan her:
del1 = request.form("liste") men kun det foran komma
del2 = request.form("liste") men kun det efter komma

Synes godt om

loukas Mester

30. marts 2003 - 23:55 #1

Jeg er ikker helt med, lidt kode kunne måske hjælpe.
Men vil du have lavet et array eller hva' ?

Synes godt om

eagleeye Praktikant

30. marts 2003 - 23:57 #2

Så lig det ind i en variable og brug Split:

str = request.form("liste")
strArr = Split(str, ",")
del1 = strArr(0)
del2 = strArr(1)

Synes godt om

hanne-rk Nybegynder

30. marts 2003 - 23:59 #3

fra tilføj.asp
<option>Brugte,Komedie</option>

til tiløjidatabase.asp
strSQL = "Insert into varer (varenummer, menupunkter) values('" & upload.Form("menupunkter") & "','" & upload.Form("undermenupunkter") & "')"

Synes godt om

hanne-rk Nybegynder

31. marts 2003 - 00:19 #4

jeg får denne fejl :
Microsoft VBScript runtime error '800a0009'

Subscript out of range: '[number: 0]'

/admin/tiløjidatabase.asp, line 7

hvad betyder det ?

Synes godt om

medions Nybegynder

31. marts 2003 - 00:27 #5

hanne-rk> Ja, det vil ske hvis strengen er tom... (altså Request.Form("liste"))

//>Rune

Synes godt om

hanne-rk Nybegynder

31. marts 2003 - 00:35 #6

det burde den ikke være :
<select size="1" name="menupunkt">
<option value="Brugte,Komedie">Brugte, Komedie</option>

vel ?
(jeg kalder den med :)
<%

str = request.form("menupunkt")
strArr = Split(str, ",")
menupunkter = strArr(0)
undermenupunkter = strArr(1)
%>

Synes godt om

mortrr Praktikant

31. marts 2003 - 00:35 #7

upload.Form("menupunkter")

Synes godt om

oasen Nybegynder

31. marts 2003 - 00:40 #8

upload.form("menupunkt") - må det være.

Synes godt om

medions Nybegynder

31. marts 2003 - 00:40 #9

Hmm så prøv sådan her:

<%

str = request.form("menupunkt")
strArr = Split(str, ",")
menupunkter = strArr(LBound(strArr))
undermenupunkter = strArr(UBound(strArr))
%>

//>Rune

Synes godt om

hanne-rk Nybegynder

31. marts 2003 - 00:41 #10

nu får jeg :
Object required: 'upload'

Synes godt om

hanne-rk Nybegynder

31. marts 2003 - 00:43 #11

Subscript out of range: 'LBound(...)'

Synes godt om

mortrr Praktikant

31. marts 2003 - 00:54 #12

Du har tidligere skrevet:
til tiløjidatabase.asp
strSQL = "Insert into varer (varenummer, menupunkter) values('" & upload.Form("menupunkter") & "','" & upload.Form("undermenupunkter") & "')"

Her bruger du en eller anden upload komponent.
Når du har brugt den, vil request.form ikke kunne bruges.

Bruger du stadig den?

=====

Har du kontrolleret om dit felt hedder "menupunkt"?
Hvis du får Subscript out of range tyder det på at det hedder noget andet.

Synes godt om

hanne-rk Nybegynder

31. marts 2003 - 00:56 #13

den er STOR men her er hele koden hvorfra form("menupunkt") kommer fra

<body>
<%
' Databaseforbindelse
Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
DSN = DSN & "DBQ=" & Server.MapPath ("../data/butik.mdb")
Conn.Open DSN

%>
<p align="center"><font size="6" color="#000080">Tilføj ny vare</font></p>
<form method="POST" action="nyvare.asp" enctype="multipart/form-data">
<div align="center">
<center>
<table border="1" cellspacing="1" width="442" id="AutoNumber1" bordercolorlight="#000080" bordercolordark="#000080" height="230">
<tr>
<td width="126" bgcolor="#000080" height="22"><font color="#FFFFFF">Menu
punkter</font></td>
<td width="313" height="22">

<select size="1" name="menupunkt">
<%
' SQL forespørgsel
strSQL = "Select * from menupunkter where undermenupunkter is not null order by menupunkter"
' Udfør forespørgsel (rs indeholder nu resultatet)
Set rs = Conn.Execute(strSQL)

' Gennemløb Recordset (rs) med en løkke
Do
%>

<option value="<% = rs("menupunkter")%>,<% = rs("undermenupunkter")%>"><% = rs("menupunkter")%>, <% = rs("undermenupunkter")%></option>

<%
' Gå til næste Record i rs
rs.MoveNext

' Fortsæt indtil rs er gennemløbet (EOF = End Of File)
Loop While Not rs.EOF
%>
</select> </td>
</tr>
<tr>
<td width="126" bgcolor="#000080" height="22"><font color="#FFFFFF">Varenummer</font></td>
<td width="313" height="22">
<input type="text" name="varenummer" size="44"></td>
</tr>
<tr>
<td width="126" bgcolor="#000080" height="22"><font color="#FFFFFF">Varenavn</font></td>
<td width="313" height="22"><input type="text" name="varenavn" size="44"></td>
</tr>
<tr>
<td width="126" bgcolor="#000080" height="22"><font color="#FFFFFF">Pris i kr.</font></td>
<td width="313" height="22"> kr.
<input type="text" name="pris" size="15">,00 <font color="#FF0000">(skriv
KUN tal)</font></td>
</tr>
<tr>
<td width="126" bgcolor="#000080" height="68"><font color="#FFFFFF">Varetekst</font></td>
<td width="313" height="68"><textarea rows="4" name="varetekst" cols="37"></textarea></td>
</tr>
<tr>
<td width="126" bgcolor="#000080" height="8"><font color="#FFFFFF">
Lillefoto</font></td>
<td width="313" height="8">
<input type="file" name="lillefoto" size="20"></td>
</tr>
<tr>
<td width="126" bgcolor="#000080" height="8"><font color="#FFFFFF">Storfoto</font></td>
<td width="313" height="8">
<input type="file" name="storfoto" size="20"></td>
</tr>
<tr>
<td width="126" bgcolor="#000080" height="8"><font color="#FFFFFF">TILBUD</font></td>
<td width="313" height="8">
<select size="1" name="tilbud" style="width: 70">
<option selected value="0">nej</option>
<option value="1">ja</option>
</select></td>
</tr>
</table>
</center>
</div>
<p align="center">
<input type="submit" value="Tilføj vare" name="B1">  <input type="reset" value="Nulstil" name="B2"></p>
</form>
<p> </p>

</body>

Synes godt om

mortrr Praktikant

31. marts 2003 - 01:07 #14

Så er "menupunkt" god nok.

hvad så med nyvare.asp?

Du bruger multipart, så upload.form("menupunkt") er sikkert den rigtige.
(EFTER du har oprettet upload)

Synes godt om

hanne-rk Nybegynder

31. marts 2003 - 09:45 #15

ok her kommer nyvare.asp

<%

str = request.form("menupunkt")
strArr = Split(str, ",")
menupunkter = strArr(LBound(strArr))
undermenupunkter = strArr(UBound(strArr))
%>
<html>
<head>
<meta http-equiv="Content-Language" content="da">
<meta name="GENERATOR" content="Microsoft FrontPage 5.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
<meta http-equiv="Content-Type" content="text/html; charset=windows-1252">
<title>Ny vare tilføjet</title>
</head>

<body>
<%
Set Upload = Server.CreateObject("Persits.Upload.1")
Upload.OverwriteFiles = False
Upload.SetMaxSize 2048576
Upload.Save server.mappath("../film/")
%>

<%

' Databaseforbindelse
Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
DSN = DSN & "DBQ=" & Server.MapPath ("../data/butik.mdb")
Conn.Open DSN

strSQL = "Insert into produkter (varenummer, menupunkter, undermenupunkter, navn, beskrivelse, pris, lillefoto, storfoto, tilbud) values('" & upload.Form("varenummer") & "','" & menupunkter & "','" & undermenupunkter & "','" & upload.Form("varenavn") & "','" & upload.Form("varetekst") & "','" & upload.Form("pris") & "','" & upload.Files("lillefoto").ExtractFilename & "','" & upload.files("storfoto").ExtractFilename & "','" & upload.Form("tilbud") & "')"

' SQL sætning eksekveres
Conn.Execute(strSQL)

' Luk databaseforbindelse
Conn.Close
Set Conn = Nothing

%>Den nye vare er nu tilføjet.

Synes godt om

mortrr Praktikant

31. marts 2003 - 10:48 #16

<%

%>
<html>
<head>
<meta http-equiv="Content-Language" content="da">
<meta name="GENERATOR" content="Microsoft FrontPage 5.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
<meta http-equiv="Content-Type" content="text/html; charset=windows-1252">
<title>Ny vare tilføjet</title>
</head>

<body>
<%
Set Upload = Server.CreateObject("Persits.Upload.1")
Upload.OverwriteFiles = False
Upload.SetMaxSize 2048576
Upload.Save server.mappath("../film/")
%>

<%

' Databaseforbindelse
Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
DSN = DSN & "DBQ=" & Server.MapPath ("../data/butik.mdb")
Conn.Open DSN

str = upload.form("menupunkt")
strArr = Split(str, ",")
menupunkter = strArr(LBound(strArr))
undermenupunkter = strArr(UBound(strArr))

strSQL = "Insert into produkter (varenummer, menupunkter, undermenupunkter, navn, beskrivelse, pris, lillefoto, storfoto, tilbud) values('" & upload.Form("varenummer") & "','" & menupunkter & "','" & undermenupunkter & "','" & upload.Form("varenavn") & "','" & upload.Form("varetekst") & "','" & upload.Form("pris") & "','" & upload.Files("lillefoto").ExtractFilename & "','" & upload.files("storfoto").ExtractFilename & "','" & upload.Form("tilbud") & "')"

' SQL sætning eksekveres
Conn.Execute(strSQL)

' Luk databaseforbindelse
Conn.Close
Set Conn = Nothing

%>Den nye vare er nu tilføjet.

Synes godt om

hanne-rk Nybegynder

19. april 2003 - 10:40 #17

vsar lige mortrr :-)

Synes godt om

mortrr Praktikant

19. april 2003 - 13:25 #18

hermed

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	9	17/09/202611:37	I går 15:15
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