Notifikationer

Markér alle som læst Log ud

axl_rose Nybegynder

08. november 2004 - 23:12 Der er 33 kommentarer og
1 løsning

Mellemrum i udtræk

Hej
JEg har nogen udtræk fra en database som skal vises her er min kode. Der skal være mellemrum mellem fornavn og adresse, post nr osv....

<%
IF Request.Querystring("keyword") <> "" THEN

Set rs = Conn.Execute("SELECT * FROM tilmeld WHERE specialitet = '" & Request.Querystring("keyword") & "'")

IF NOT (rs.EOF OR rs.BOF) THEN

DO WHILE NOT rs.EOF

Response.Write "" & rs("efternavn") & ", " & rs("fornavn") & rs("adresse") & rs("bopael") & rs("specialitet") & rs("email") & rs("telefon") & rs("mobil") & rs("fax") & rs("bemaerkninger") & " "

rs.MoveNext
Loop

Response.Write ""

ELSE

Response.Write "Ingen kokke med den specialitet"

END IF

END IF
%>

Synes godt om

netro Nybegynder

09. november 2004 - 04:24 #1

Response.Write "" & rs("efternavn") & ", " & rs("fornavn") & " " & rs("adresse") & " " & rs("bopael") & " " & rs("specialitet") & " " & rs("email") & " " & rs("telefon") & " " & rs("mobil") & " " & rs("fax") & " " & rs("bemaerkninger") & " "

Ikke et pænt layout, men det er det, du beder om.

Synes godt om

axl_rose Nybegynder

09. november 2004 - 11:19 #2

Hvad mener du med "pænt layout"

Synes godt om

netro Nybegynder

09. november 2004 - 15:43 #3

At dit output ser ud som noget i den stil:

Petersen, Jørgen, Atomkraft Allé 268A, 4.th, 3972 Plamby, Specialitet, bla@bla.dk, +4590382891, +4570981276, +4590382892, Kunden har ikke betalt sidst.

Nogle linieskift ville gøre underværker - eller en tabel.

Synes godt om

axl_rose Nybegynder

09. november 2004 - 15:56 #4

Kan du organisere det så det ser bedre ud??

Synes godt om

netro Nybegynder

09. november 2004 - 16:19 #5

Response.Write "<table cellspacing=""10"">" &_
DO WHILE NOT rs.EOF
Response.Write "<tr><td>Navn:</td><td>" & rs("fornavn") & " " & rs("efternavn") & "</td></tr>" &_
"<tr><td>Adresse:</td><td>" & rs("adresse") & ", " & rs("bopael") & "</td></tr>" &_
"<tr><td>Email:</td><td>" & rs("email") & "</td></tr>" &_
"<tr><td>FAX:</td><td>" & rs("fax") & "</td></tr>" &_
"<tr><td>Telefon:</td><td>" & rs("telefon") & " / " & rs("mobil") & "</td></tr>" &_
"<tr><td>Specialitet:</td><td>" & rs("specialitet") & "</td></tr>" &_
"<tr><td>Bemærkninger:</td><td>" & rs("bemaerkninger") & "</td></tr>"
rs.MoveNext
Loop
Response.Write "</table>"

Synes godt om

axl_rose Nybegynder

09. november 2004 - 16:26 #6

skal det erstattes med:

Response.Write "" & rs("efternavn") & ", " & rs("fornavn") & rs("adresse") & rs("bopael") & rs("specialitet") & rs("email") & rs("telefon") & rs("mobil") & rs("fax") & rs("bemaerkninger") & " "

Synes godt om

netro Nybegynder

09. november 2004 - 16:47 #7

Det skal erstattes med:

DO WHILE NOT rs.EOF

Response.Write "" & rs("efternavn") & ", " & rs("fornavn") & rs("adresse") & rs("bopael") & rs("specialitet") & rs("email") & rs("telefon") & rs("mobil") & rs("fax") & rs("bemaerkninger") & " "

rs.MoveNext
Loop

Synes godt om

axl_rose Nybegynder

09. november 2004 - 16:51 #8

Dvs den skal se sådan her ud:

<%
IF Request.Querystring("keyword") <> "" THEN

Set rs = Conn.Execute("SELECT * FROM tilmeld WHERE specialitet = '" & Request.Querystring("keyword") & "'")

IF NOT (rs.EOF OR rs.BOF) THEN

Response.Write "<table cellspacing=""10"">" &_
DO WHILE NOT rs.EOF
Response.Write "<tr><td>Navn:</td><td>" & rs("fornavn") & " " & rs("efternavn") & "</td></tr>" &_
"<tr><td>Adresse:</td><td>" & rs("adresse") & ", " & rs("bopael") & "</td></tr>" &_
"<tr><td>Email:</td><td>" & rs("email") & "</td></tr>" &_
"<tr><td>FAX:</td><td>" & rs("fax") & "</td></tr>" &_
"<tr><td>Telefon:</td><td>" & rs("telefon") & " / " & rs("mobil") & "</td></tr>" &_
"<tr><td>Specialitet:</td><td>" & rs("specialitet") & "</td></tr>" &_
"<tr><td>Bemærkninger:</td><td>" & rs("bemaerkninger") & "</td></tr>"
rs.MoveNext
Loop
Response.Write "</table>"

Response.Write ""

ELSE

Response.Write "Ingen kokke med den specialitet"

END IF

END IF
%>

Synes godt om

netro Nybegynder

09. november 2004 - 17:24 #9

Ja, men jeg ved ikke, hvad du skal med det , der står og keder sig.

Synes godt om

axl_rose Nybegynder

11. november 2004 - 08:57 #10

Den virker ikke: her er min kode:

<%
Response.Buffer = True

Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("db.mdb")
Conn.Open DSN
%>
<html>

<head>
<meta http-equiv="Content-Type" content="text/html; charset=windows-1252">
<meta name="GENERATOR" content="Microsoft FrontPage 6.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
</head>

<body background="../j0289776.jpg">


Søg | 
Her kan du søge efter den kok du gerne vil have.<form method="GET" action="sog.asp?seek=1">

<select name=c1 onChange="if (this.options[this.selectedIndex].value != '') { location.href = this.options[this.selectedIndex].value; };" size="1">
<option>Specialitet...
<option>--------------------------
<option value="?keyword=fisk">Fisk
<option value="?keyword=grill">Grill
<option value="?keyword=italiansk_mad">Italiansk mad
</select>

</form>





<%
IF Request.Querystring("keyword") <> "" THEN

Set rs = Conn.Execute("SELECT * FROM tilmeld WHERE specialitet = '" & Request.Querystring("keyword") & "'")

IF NOT (rs.EOF OR rs.BOF) THEN

Response.Write "<table cellspacing=""10"">" &_
DO WHILE NOT rs.EOF
Response.Write "<tr><td>Navn:</td><td>" & rs("fornavn") & " " & rs("efternavn") & "</td></tr>" &_
"<tr><td>Adresse:</td><td>" & rs("adresse") & ", " & rs("bopael") & "</td></tr>" &_
"<tr><td>Email:</td><td>" & rs("email") & "</td></tr>" &_
"<tr><td>FAX:</td><td>" & rs("fax") & "</td></tr>" &_
"<tr><td>Telefon:</td><td>" & rs("telefon") & " / " & rs("mobil") & "</td></tr>" &_
"<tr><td>Specialitet:</td><td>" & rs("specialitet") & "</td></tr>" &_
"<tr><td>Bemærkninger:</td><td>" & rs("bemaerkninger") & "</td></tr>"
rs.MoveNext
Loop
Response.Write "</table>"

ELSE

Response.Write "Ingen kokke med den specialitet"

END IF

END IF
%>



</body>

</html>
<%
On Error Resume Next

rs.Close
Conn.Close
Set rs = Nothing
Set Conn = Nothing
%>

Synes godt om

axl_rose Nybegynder

11. november 2004 - 08:58 #11

Den siger bare ; Der opstod en intern http 500-serverfejl

siden viser; Siden kan ikke vises

Synes godt om

netro Nybegynder

11. november 2004 - 10:05 #12

Funktioner->Internetindstillinger->Avanceret->Vis meddelelser om udskadelige HTTP-fejl (fjern flueben)

Den linie burde efterhånden stå på forsiden af Eksperten ;)
Hvad siger den så?

Synes godt om

netro Nybegynder

11. november 2004 - 10:05 #13

- uskadelige!

Synes godt om

axl_rose Nybegynder

11. november 2004 - 11:41 #14

Så kommer denne fejl -

Microsoft VBScript compilation error '800a03ea'

Syntax error

/kok-site/tilmeld/sog.asp, line 44

DO WHILE NOT rs.EOF
^

Synes godt om

netro Nybegynder

11. november 2004 - 17:23 #15

Min fejl. Sorry. Slet &_ lige inden DO.

Synes godt om

axl_rose Nybegynder

11. november 2004 - 21:24 #16

Mange tak for hjælpen og at du kunne bære over med at jeg lød meget vanskelige og uforståelige takker.... :-)!!!

Synes godt om

netro Nybegynder

11. november 2004 - 21:26 #17

Selv tak :)

Synes godt om

axl_rose Nybegynder

11. november 2004 - 21:29 #18

Jeg har et andet lille prblem nu når søgeren virker vil du hjælpe mig med det... det er os ASP

Synes godt om

axl_rose Nybegynder

11. november 2004 - 21:30 #19

problem*

Synes godt om

netro Nybegynder

11. november 2004 - 21:31 #20

Ja, hvis det ikke er noger, der stjæler hele min aften.

Synes godt om

netro Nybegynder

11. november 2004 - 21:41 #21

Hvad er det?

Synes godt om

axl_rose Nybegynder

11. november 2004 - 22:14 #22

Altså jeg har en tilmeldings side, har prøvet at ligge en filsending(upload) ind i formularen, men nu vil den godt virke men i databsen er alle felter tomme id'et, men den er tom og der er ikke uploadet nogen filer.

For det er meningen at det billede skal registreres med den person der tilmeldte sig så det billede også kan vises i søgeren

Synes godt om

netro Nybegynder

11. november 2004 - 22:20 #23

Bruger du følgende?

<form enctype="multipart/form-data" action="fil.asp" method="post">

- og aflæser du dine tekstfelter, som dokumentationen til billedekomponenten foreskriver?

Synes godt om

axl_rose Nybegynder

11. november 2004 - 22:25 #24

Det er selve den hvor man indtaster sit data.

<html>

<head>
<meta http-equiv="Content-Type" content="text/html; charset=windows-1252">
<meta name="GENERATOR" content="Microsoft FrontPage 6.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
</head>

<body background="../j0289776.jpg">
Tilmeld | 
Her kan du tilmelde dig og blive bla bla bla bla.......
<form method="POST" action="tilmeld.asp" enctype="multipart/form-data">
<table border="0" width="21%" cellspacing="0" cellpadding="0" align="left">
<tr>
<td width="50%" valign="top">Fornavn</td>
<td width="50%">
<input name="strfornavn" size="20"></td>
</tr>
<tr>
<td width="50%" valign="top">Efternavn</td>
<td width="50%">
<input name="strstrefternavn" size="20"></td>
</tr>
<tr>
<td width="50%" valign="top">Adresse</td>
<td width="50%">
<input name="stradresse" size="20"></td>
</tr>
<tr>
<td width="50%" valign="top">Post nr. / By</td>
<td width="50%">
<input name="strpostnr" size="2">     
<input name="strbopael" size="14"></td>
</tr>
<tr>
<td width="50%" valign="top">Specialitet</td>
<td width="50%">

<select name="specialitet" multiple size="1">
<option>Vælg her...
<option>--------------------------
<option value="fisk">Fisk
<option value="grill">Grill
<option value="italiansk_mad">Italiansk mad
</select>

</td>
</tr>
<tr>
<td width="50%" valign="top">Email</td>
<td width="50%">
<input name="stremail" size="20"></td>
</tr>
<tr>
<td width="50%" valign="top">Telefon</td>
<td width="50%">
<input name="strtelefon" size="20"></td>
</tr>
<tr>
<td width="50%" valign="top">Mobil</td>
<td width="50%">
<input name="strmobil" size="20"></td>
</tr>
<tr>
<td width="50%" valign="top">Fax</td>
<td width="50%">
<input name="strfax" size="20"></td>
</tr>
<tr>
<td width="50%" valign="top">Bemærkninger</td>
<td width="50%">
<input name="strbemaerkninger" size="20"></td>
</tr>
<tr>
<td width="50%" valign="top">Upload</td>
<td width="50%"><input type="file" name="strupload" size="20"></td>
</tr>
<tr>
<td width="50%" valign="top"> </td>
<td width="50%">
<input type="submit" value="Send tilmeldning" name="B1" style="font-family: Verdana; font-size: 10 px; "></td>
</tr>
<tr>
<td width="50%" valign="top"></td>
<td width="50%"> </td>
</tr>
</table>
</form>
</body>

</html>

Synes godt om

axl_rose Nybegynder

11. november 2004 - 22:25 #25

og her tilmeld.asp som er den der egentlig skal klare det (the dirty job):

<%
Response.Buffer = True

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

strFornavn = Request.Form("fornavn")
strEfternavn = Request.Form("efternavn")
strAdresse = Request.Form("adresse")
strPostnr = Request.Form("postnr")
strBy = Request.Form("by")
strSpecialitet = Request.Form("specialitet")
strEmail = Request.Form("email")
strTelefon = Request.Form("telefon")
strMobil = Request.Form("mobil")
strFax = Request.Form("fax")
strBemaerkninger = Request.Form("bemaerkninger")
strUpload = Request.Form("upload")

Conn.Execute("INSERT INTO tilmeld (fornavn, efternavn, adresse, postnr, bopael, specialitet, email, telefon, mobil, fax, bemaerkninger, upload) VALUES ('" & strFornavn & "','" & strEfternavn & "','" & strAdresse & "','" & strPostnr & "','" & strBopael & "','" & strSpecialitet & "','" & strEmail & "','" & strTelefon & "','" & strMobil & "','" & strFax & "','" & strBemaerkninger & "','" & strUpload & "')")

Set rs = Conn.Execute("SELECT * FROM tilmeld ORDER BY id DESC")

strBody = strBody & "Fornavn: " & strFornavn & vbCrLf
strBody = strBody & "Efternavn: " & strEfternavn & vbCrLf
strBody = strBody & "Adresse: " & strAdresse & vbCrLf
strBody = strBody & "Post nr / By: " & strPostnr & " " & strBy & vbCrLf
strBody = strBody & "Specialitet: " & strSpecialitet & vbCrLf
strBody = strBody & "Email: " & strEmail & vbCrLf
strBody = strBody & "Telefon: " & strTelefon & vbCrLf
strBody = strBody & "Mobil: " & strMobil & vbCrLf
strBody = strBody & "Fax: " & strFax & vbCrLf
strBody = strBody & "Bemærkninger: " & strBemaerkninger & vbCrLf
strBody = strBody & "Upload: " & strUpload & vbCrLf
strBody = strBody & "ID: " & strUpload & rs("id")

Set msg = Server.CreateObject("JMail.Message")
msg.From = "kreller@krellers.dk" 'Bare skriv denne samme mail her og neden under
msg.AddRecipient "kreller@krellers.dk"
msg.Subject = "Ny kunde - KokAmok"
msg.Body = strBody
msg.Send("mail.krellers.dk")

Response.Redirect "uploadfile.asp"

rs.Close
Conn.Close
Set rs = Nothing
Set Conn = Nothing
%>

Synes godt om

netro Nybegynder

11. november 2004 - 22:37 #26

Det er også fuldstændigt forkert.

Du mangler en billedekomponent til at håndtere upload'en (som fx. www.aspsmart.com/aspSmartUpload/). Når du sætter enctype til multipart/form-data, angiver du, at data skal sendes binært. Disse skal derfor også aflæses specielt, hvilket du skal bruge billedekomponenten til. Dine tekstfelter kan således heller ikke aflæses med Request.Form(), som du er vant til. Besøg linket - det hele er godt beskrevet.

Synes godt om

axl_rose Nybegynder

11. november 2004 - 23:01 #27

Tror du, du kan ændre det i koden. Der er installeret AspSmartUpload på min hosters server

Synes godt om

netro Nybegynder

11. november 2004 - 23:02 #28

Ja, men det gider jeg altså ikke...

Synes godt om

axl_rose Nybegynder

14. november 2004 - 20:30 #29

Nå okay.. :-(

Synes godt om

netro Nybegynder

14. november 2004 - 22:06 #30

- men du har jo lov at oprette et nyt spørgsmål og se, om en anden gør ;o)

Synes godt om

axl_rose Nybegynder

23. november 2004 - 15:48 #31

netro smider du ikke et svar. Så du kan få points

Synes godt om

netro Nybegynder

23. november 2004 - 15:50 #32

Tak for points :)

Synes godt om

axl_rose Nybegynder

23. november 2004 - 16:01 #33

ARH!! hehe ups du har fået....!!! hehe

Synes godt om

netro Nybegynder

23. november 2004 - 16:12 #34

;o)

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
Jeg bakser med noget Database og If Then med ASP - hvad gør jeg galt? Af Peer i ASP	9	25/06/202622:20	29/06/202621:55
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
Classic - filer vist med sidste fil først Af bsn i ASP	5	23/05/202409:56	24/05/202400:02

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

15:00

Ugen i tech: Mercedes giver sin storsællert en kæmpe overhaling / Google Pay strejker på en række Kina-mobiler

31/07

Test: Nu får du high-end-egenskaber i en prisoverkommelig robotstøvsuger

31/07

Lækket memo peger på Iran: Hackerne ville sænke vandtrykket og forurene drikkevandet i USA

31/07

Dette svimlende store tal har afgjort tech-giganternes skæbne på børsen

31/07

Salget brager frem hos AWS: Hurtigste vækst de seneste fem år

31/07

Den dramatiske historie om det undersøiske telegrafkabel, der forbandt verden

31/07

Macbook Neo og iPhones sælger som varmt brød - men alligevel bliver Apple straffet af investorerne

31/07

Nørgaard: Når storrummene er tomme og halvlederne er på ferie, så begynder folk forsigtigt og tøvende at opføre sig normalt

31/07

Henrik Zangenberg har skiftet fra amerikansk til kinesisk AI: Kinesiske AI-modeller giver mig kontrollen tilbage

31/07

DTU-professor advarer om store konsekvenser: "Hvad betyder AI-gigafabrikker for vores elnet, vand og natur?"

30/07

EU stiller kæmpe milliardpulje til rådighed: Klar til investere i syv nye AI-gigafabrikker

Vis flere artikler

IT-JOB

Netcompany A/S

Network Engineer

Politiets Efterretningstjeneste

Chef Enterprise Arkitekt i PET - Form PET's Digitale Fremtid

Lægemiddelstyrelsen

God sikkerhed starter med dig! Bliv vores nye informationssikkerhedskonsulent

Jyske Bank

Softwareudvikler med AI erfaring

Politiets Efterretningstjeneste

Teknikere med flair for elektronik til PET's indhentningsafdeling

Vis flere jobs

Seneste spørgsmål Seneste aktivitet

I går 14:53	TV4ever 3.0 Af valby i Diverse
01/0816:21	Installere Ubuntu på Virtuel Maskine Af Uvanga i Andet software
01/0809:38	Microsoft har igen ødelagt mit højreklik Af valby i Windows
30/0714:41	To mails fra YouSee - Jeg tror ikke altid på tilfældigheder Af mort1 i Andet sikkerhed
27/0714:34	Hjælp til at kunne skanne negativer på Plustek 8300i SE Af Mariann i Foto & video

White papers

Undgå at printeren bliver svageste led i sikkerheden
Konica Minolta
Samarbejde mellem AI og mennesker styrker sikkerheden
Konica Minolta
De spørgsmål 200+ danske virksomheder stiller om print – samlet i én guide
Konica Minolta

Flere white papers »