Notifikationer

Markér alle som læst Log ud

ghostdreamer Nybegynder

29. december 2000 - 16:58 Der er 13 kommentarer og
1 løsning

Til Tandpine

Som tak for hjælpen ;-)

Synes godt om

tdaugaard Nybegynder

29. december 2000 - 16:59 #1

ref ?

Synes godt om

prodic Mester

29. december 2000 - 17:11 #2

http://www.eksperten.dk/spm/39286 - hvis det er den der, så ender spørgsmålet i noget med ICQ. Og så kan det ikke belønnes i point, medmindre det er aftalt i det oprindelige spørgsmål.
Sorry.

Synes godt om

tommyf Nybegynder

29. december 2000 - 17:24 #3

Hvis vi andre får lov til at se produktet er det vel iorden?
Vi kunne jo også have nået at få pointene....

Men hvorfor skulle han have flere point?

Synes godt om

ghostdreamer Nybegynder

29. december 2000 - 18:59 #4

fordi han har brugt p**** lang tid på at hjælpe mig med scriptet!!!!

Synes godt om

tandpine Nybegynder

29. december 2000 - 19:02 #5

tak :)

Synes godt om

ghostdreamer Nybegynder

29. december 2000 - 19:02 #6

og JA det er spg:
http://www.eksperten.dk/spm/39286

Synes godt om

ghostdreamer Nybegynder

29. december 2000 - 19:04 #7

når scriptet engang er færdig i sin helhed skal jeg nok proppe det ind her, (og jeg mener proppe) for det er F****** STORT

Synes godt om

prodic Mester

29. december 2000 - 19:10 #8

Normalt er det jo ikke tilladt, at køre videre over ICQ og derefter dele point ud bagefter. Men grundet jeres lange tid på Eksperten, vil jeg lade nåde gå for ret og undlade at kontakte nogen.
Og så længe scriptet kommer ud i offentligheden så kan det vel ikke være helt ulovligt.

Synes godt om

ghostdreamer Nybegynder

30. december 2000 - 13:53 #9

Undskyld mig, men hvem laver de regler????????
- har aldrig hørt om det...... ;-)

Synes godt om

tommyf Nybegynder

30. december 2000 - 14:47 #10

ghostdreamer>>> Se www.eksperten.dk/info_regler.phtml og følg med i de afgørelser Admin kommer med (på spørgsmål i kategorien Om eksperten\\forslag).

Synes godt om

ghostdreamer Nybegynder

31. december 2000 - 12:16 #11

har før læst begge steder, men ser intet i reglerne omkring brug af ICQ!!! , men ok
Undrede mig bare hvem Prodic mener han er... :-)
der lå ikke nogen bagtanke om ikke at give folk mulighed for at tjene points, Tandpine var bare hurtigst, og havde tid til at hjælpe mig via ICQ da det var yderst tidskrævende, deraf også de forholdsvis mange points.

//GhostDreamer

Synes godt om

prodic Mester

31. december 2000 - 15:25 #12

Jeg har IKKE admin og har ingen planer om at være det, men jeg har tidligere set bruger udnytte ICQ og derefter give point for det bagefter på Eksperten.dk og det fik de ikke lov til...læs \"De blev slettet\" af Admins.
Så det var bare en lille reminder, om at det rent faktisk ikke var lovligt. Det står pt ikke i reglerne, men vi arbejder på at få udarbejdet nogle nye mere forståelige regler, hvori sådanne ting også er nævnt.
Godt Nytår. :)

Synes godt om

ghostdreamer Nybegynder

01. januar 2001 - 15:32 #13

ok, i lige måde...

Synes godt om

ghostdreamer Nybegynder

10. januar 2001 - 18:59 #14

her kommer koden:


<META NAME=\"Generator\" CONTENT=\"Stone\'s WebWriter 3\">

<%

Response.Buffer = true
dim conn, rs, sql, cnstr, reservation, n

set conn = server.createobject(\"adodb.connection\")
set rs = server.createobject(\"adodb.recordset\")

cnstr = \"Provider=Microsoft.Jet.OLEDB.4.0;\"
cnstr = cnstr & \"Data Source=\" & Server.MapPath(\"db sti\")
conn.connectionstring = cnstr
conn.open

rs.activeconnection = conn
rs.cursortype = adopenforwardonly
rs.locktype = adlockreadonly

sql = \"SELECT felt FROM tabelnavn WHERE pladsnr=\'\" &request.form(\"pladsnr\")&\"\'\"
rs.open sql
felt=rs(\"navn\")
rs.close
set rs = nothing
conn.close
set conn = nothing

IF reservation=TRUE THEN

set conn = server.createobject(\"adodb.connection\")
set rs = server.createobject(\"adodb.recordset\")

cnstr = \"Provider=Microsoft.Jet.OLEDB.4.0;\"
cnstr = cnstr & \"Data Source=\" & Server.MapPath(\"db sti\")
conn.connectionstring = cnstr
conn.open

rs.activeconnection = conn
rs.cursortype = adopenforwardonly
rs.locktype = adlockreadonly

sql = \"SELECT felt FROM tabelnavn WHERE reservation=no\"
sql = sql & \" ORDER BY pladsnr\"
rs.open sql

response.write \"<html><head><title>reservation 4</title><META NAME=Generator CONTENT=Stone\'s WebWriter 3><STYLE TYPE=text/css></STYLE></head><body><table width=500><tr><td align=center><b>Å-festival pladsreservering</b><P>Trin 4 af 4</td></tr><tr><td><font color=Red>pladsen er desværre blevet optaget i mellemtiden, vælg en anden:<HR align=left SIZE=1 WIDTH=300 NOSHADE><form action=reservation4.asp method=post><table width=500 border=0><tr><td>Vælg hvilken plads du vil reservere:</td></tr></table><table width=500 border=0><tr><td width=100><FONT FACE=Tahoma COLOR=gray SIZE=-1>Plads nr:</td><td witdth=400><SELECT name=pladsnr>\"
do until rs.eof
response.write \"<OPTION>\" & rs(\"Pladsnr\")
rs.movenext
loop

response.write \"</SELECT></td></tr></table><INPUT TYPE=hidden NAME=navn value=\'\"&request.form(\"navn\")&\"\'><INPUT TYPE=hidden NAME=adresse value=\'\"&request.form(\"adresse\")&\"\'><INPUT TYPE=hidden NAME=postnr value=\'\"&request.form(\"postnr\")&\"\'><INPUT TYPE=hidden NAME=city value=\'\"&request.form(\"city\")&\"\'><INPUT TYPE=hidden NAME=tlfnr value=\'\"&request.form(\"tlfnr\")&\"\'><INPUT TYPE=hidden NAME=email value=\'\"&request.form(\"email\")&\"\'><INPUT TYPE=hidden NAME=antalenheder value=\'\"&request.form(\"antalenheder\")&\"\'><INPUT TYPE=hidden NAME=stroem value=\'\"&request.form(\"stroem\")&\"\'><INPUT TYPE=hidden NAME=antal value=\'\"&request.form(\"antal\")&\"\'>\"
for n=1 to cint(request.form(\"antal\"))
response.write \"<INPUT TYPE=hidden NAME=\'BEBnavn\"&n&\"\' value=\'\"&request.form(\"BEBnavn\"&n)&\"\'>\"
response.write \"<INPUT TYPE=hidden NAME=\'BEBcity\"&n&\"\' value=\'\"&request.form(\"BEBcity\"&n)&\"\'>\"
response.write \"<INPUT TYPE=hidden NAME=\'BEBfrelor\"&n&\"\' value=\'\"&request.form(\"BEBfrelor\"&n)&\"\'>\"
response.write \"<INPUT TYPE=hidden NAME=\'BEBlorson\"&n&\"\' value=\'\"&request.form(\"BEBlorson\"&n)&\"\'>\"
response.write \"<INPUT TYPE=hidden NAME=\'BEBsonman\"&n&\"\' value=\'\"&request.form(\"BEBsonman\"&n)&\"\'>\"
next
response.write \"<table width=500><tr><td width=100 align=center></td><FONT FACE=Tahoma COLOR=gray SIZE=-1><input type=submit name=tilmeld value=\'Vælg plads\'></td></tr></table></form></body></html>\"

rs.close
set rs = nothing
conn.close
set conn = nothing

ELSE

set conn = server.createobject(\"adodb.connection\")

cnstr = \"Provider=Microsoft.Jet.OLEDB.4.0;\"
cnstr = cnstr & \"Data Source=\" & Server.MapPath(\"db sti\")
conn.connectionstring = cnstr
conn.open

sql=\"UPDATE tabelnavn set\"
sql=sql&\" betalt=no,\"
sql=sql&\" reservation=yes,\"
sql=sql&\" navn=\'\"&request.form(\"navn\")&\"\',\"
sql=sql&\" adresse=\'\"&request.form(\"adresse\")&\"\',\"
sql=sql&\" postnr=\'\"&request.form(\"postnr\")&\"\',\"
sql=sql&\" city=\'\"&request.form(\"city\")&\"\',\"
sql=sql&\" tlfnr=\'\"&request.form(\"tlfnr\")&\"\',\"
sql=sql&\" email=\'\"&request.form(\"email\")&\"\',\"
sql=sql&\" antalenheder=\'\"&request.form(\"antalenheder\")&\"\',\"
sql=sql&\" stroem=\"
if request.form(\"stroem\")=\"on\" then
sql=sql&\"yes\"
else
sql=sql&\"no\"
end if

sql=sql&\" where pladsnr=\'\" &request.form(\"pladsnr\")&\"\'\"

conn.execute sql

for n=1 to cint(request.form(\"antal\"))
sql = \"INSERT INTO tabelnavn ( felter) VALUES (\'\"&request.form(\"pladsnr\")&\"\',\'\"&request.form(\"BEBnavn\"&n)&\"\',\'\"&request.form(\"BEBcity\"&n)&\"\',\"

if request.form(\"BEBfrelor\"&n)=\"on\" then
sql=sql&\"yes\"&\",\"
else
sql=sql&\"no\"&\",\"
end if

if request.form(\"BEBlorson\"&n)=\"on\" then
sql=sql&\"yes\"&\",\"
else
sql=sql&\"no\"&\",\"
end if

if request.form(\"BEBsonman\"&n)=\"on\" then
sql=sql&\"yes\"&\",\"
else
sql=sql&\"no\"&\",\"
end if

sql=sql&\"no)\"

conn.execute sql

next

response.write \"<html><head><title>Pladsreservation til Å-festival</title><META NAME=Generator CONTENT=Stone\'s WebWriter 3><STYLE TYPE=text/css></STYLE></head><body><table width=500><tr><td align=center><b>Å-festival pladsreservering</b><P>Trin 4 af 4</td></tr><tr><td><font color=black>pladsen er nu reserveret, du har tilmeldt følgende:<P><font color=red>(HUSK! at udskrive din reservering)</td></tr><tr><td><font color=black>Kontaktperson:<HR align=left SIZE=1 WIDTH=300 NOSHADE><form action= method=\'post\'><table width=\'500\' border=\'0\'><tr><td width=\'100\'><FONT FACE=\'Tahoma\' COLOR=\'gray\' SIZE=\'-1\'>Plads nr:</td><td width=\'400\'>\"
response.write \"<input type=\'text\' size=\'3\' readonly name=\'pladsnr\' value=\'\"&request.form(\"pladsnr\")&\"\'></td></tr><tr><td width=\'100\'><FONT FACE=\'Tahoma\' COLOR=\'gray\' SIZE=\'-1\'>Navn:</td><td width=\'400\'><input type=\'text\' name=\'navn\' readonly value=\'\"&Request.Form(\"navn\")&\"\'></td></tr><tr><td width=\'100\'><FONT FACE=\'Tahoma\' COLOR=\'gray\' SIZE=\'-1\'>Adresse:</td><td width=\'400\'><input type=\'text\' name=\'adresse\' readonly value=\'\"&Request.Form(\"adresse\")&\"\'></td></tr><tr><td width\'\'100\'><FONT FACE=\'Tahoma\' COLOR=\'gray\' SIZE=\'-1\'>Post nr:</td><td width=\'400\'><input type=\'text\' SIZE=\'4\' MAXLENGTH=\'4\' name=\'postnr\' readonly value=\'\"&request.form(\"postnr\")&\"\'></td></tr><tr><td width=\'100\'><FONT FACE=\'Tahoma\' COLOR=\'gray\' SIZE=\'-1\'>By:</td><td width=\'400\'><input type=\'text\' name=\'city\' readonly value=\'\"&Request.Form(\"city\")&\"\'></td></tr><tr><td width=\'100\'><FONT FACE=\'Tahoma\' COLOR=\'gray\' SIZE=\'-1\'>Tlf nr:</td><td width=\'400\'><input type=\'text\' name=\'tlfnr\' readonly value=\'\"&Request.Form(\"tlfnr\")&\"\'></td></tr><tr><td width=\'100\'><FONT FACE=\'Tahoma\' COLOR=\'gray\' SIZE=\'-1\'>Email:</td><td width=\'400\'><input type=\'text\' name=\'email\' readonly value=\'\"&Request.Form(\"email\")&\"\'></td></tr><tr><td width=\'100\'><FONT FACE=\'Tahoma\' COLOR=\'gray\' SIZE=\'-1\'>Antal Enheder:</td><td width=\'400\'><input type=\'text\' name=\'antalenheder\' readonly value=\'\"&Request.Form(\"antalenheder\")&\"\'></td></tr><tr><td width=\'100\'><FONT FACE=\'Tahoma\' COLOR=\'gray\' SIZE=\'-1\'>Strøm:</td><td width=\'400\'>\"

if request.form(\"stroem\")=\"on\" then
response.write \"<INPUT TYPE=\'checkbox\' READONLY CHECKED name=\'stroem\'>\"
else
response.write \"<INPUT TYPE=\'checkbox\' READONLY name=\'stroem\'>\"
end if
response.write \"</td></tr><tr><td width=\'100\'><FONT FACE=\'Tahoma\' COLOR=\'gray\' SIZE=\'-1\'></td></tr></table><P><font color=\'black\'>Pladsbeboere:</font><HR align=\'left\' SIZE=\'1\' WIDTH=\'300\' NOSHADE><input type=\'hidden\' value=\'\"&Request.Form(\"antal\")&\"\' name=\'antal\'><table width=\'500\' border=\'0\'><tr><td width=\'150\'><FONT FACE=\'Tahoma\' COLOR=\'gray\' SIZE=\'-1\'></td><td width=\'150\'><FONT FACE=\'Tahoma\' COLOR=\'gray\' SIZE=\'-1\'></td></tr></table><table width=\'500\' border=\'0\'><td width=\'150\'><FONT FACE=\'Tahoma\' COLOR=\'gray\' SIZE=\'-1\'></td><td width=\'150\'><FONT FACE=\'Tahoma\' COLOR=\'gray\' SIZE=\'-1\'></td><td width=\'*\' align=\'center\'><FONT FACE=\'Tahoma\' COLOR=\'gray\' SIZE=\'-1\' align=\'center\'>Overnatninger:</td></table><table width=\'500\' border=\'0\'><tr><td width=\'150\'><FONT FACE=\'Tahoma\' COLOR=\'gray\' SIZE=\'-1\'>Navn:</td><td width=\'150\'><FONT FACE=\'Tahoma\' COLOR=\'gray\' SIZE=\'-1\'>Hjemby:</td><td width=\'*\' align=\'center\'><FONT FACE=\'Tahoma\' COLOR=\'gray\' SIZE=\'-1\'>Fre/Lør</td><td width=\'*\' align=\'center\'><FONT FACE=\'Tahoma\' COLOR=\'gray\' SIZE=\'-1\'>Lør/Søn</td><td width=\'*\' align=\'center\'><FONT FACE=\'Tahoma\' COLOR=\'gray\' SIZE=\'-1\'>Søn/Man</td></tr></table>\"

for n=1 to cint(request.form(\"antal\"))

response.write \"<table width=\'500\' border=\'0\'><tr>\"
response.write \"<td width=\'150\'><INPUT TYPE=text readonly NAME=\'BEBnavn\"&n&\"\' value=\'\"&request.form(\"BEBnavn\"&n)&\"\'></td>\"
response.write \"<td width=\'150\'><INPUT TYPE=text readonly NAME=\'BEBcity\"&n&\"\' value=\'\"&request.form(\"BEBcity\"&n)&\"\'></td>\"

if request.form(\"BEBfrelor\"&n)=\"on\" then

response.write \"<td width=\'*\'><INPUT TYPE=\'checkbox\' READONLY CHECKED NAME=\'BEBfrelor\"&n&\"\'></td>\"
else
response.write \"<td width=\'*\'><INPUT TYPE=\'checkbox\' READONLY NAME=\'BEBfrelor\"&n&\"\'></td>\"
end if

if request.form(\"BEBlorson\"&n)=\"on\" then

response.write \"<td width=\'*\'><INPUT TYPE=\'checkbox\' READONLY CHECKED NAME=\'BEBlorson\"&n&\"\'></td>\"
else
response.write \"<td width=\'*\'><INPUT TYPE=\'checkbox\' READONLY NAME=\'BEBlorson\"&n&\"\'></td>\"
end if

if request.form(\"BEBsonman\"&n)=\"on\" then

response.write \"<td width=\'*\'><INPUT TYPE=\'checkbox\' READONLY CHECKED NAME=\'BEBsonman\"&n&\"\'></td></tr></table>\"
else
response.write \"<td width=\'*\'><INPUT TYPE=\'checkbox\' READONLY NAME=\'BEBsonman\"&n&\"\'></td></tr></table>\"
end if
next

response.write \"<HR SIZE=1 ALIGN=left WIDTH=300 NOSHADE>\"

Dim antale, stroem, ialt, BEBialt
dim BEBfrelor, BEBlorson, BEBsonman, BEBpris
redim BEBfrelor(cint(request.form(\"antal\"))), BEBlorson(cint(request.form(\"antal\"))), BEBsonman(cint(request.form(\"antal\"))), BEBpris(cint(request.form(\"antal\")))

antale = request.form(\"antalenheder\")

antale = antale * 50

if request.form(\"stroem\")=\"on\" then
stroem = 1
else
stroem = 0
end if

stroem = stroem * 50

for n=1 to cint(request.form(\"antal\"))

if request.form(\"BEBfrelor\"&n)=\"on\" then
BEBfrelor(n) = 1
else
BEBfrelor(n) = 0
end if
BEBfrelor(n) = BEBfrelor(n) * 50

if request.form(\"BEBlorson\"&n)=\"on\" then
BEBlorson(n) = 1
else
BEBlorson(n) = 0
end if
BEBlorson(n) = BEBlorson(n) * 50

if request.form(\"BEBsonman\"&n)=\"on\" then
BEBsonman(n) = 1
else
BEBsonman(n) = 0
end if
BEBsonman(n) = BEBsonman(n) * 50

BEBpris(n) = BEBfrelor(n) + BEBlorson(n) + BEBsonman(n)

next

for n=1 to cint(request.form(\"antal\"))
BEBialt = BEBialt + BEBpris(n)
next

ialt = 50 + antale + stroem + BEBialt

response.write \"<table width=500><tr><td width=300 align=center><FONT FACE=\'Tahoma\' COLOR=\'black\'><U><B>Pris:</B></U></td></tr><tr><td width=300 align=right><FONT FACE=\'Tahoma\' COLOR=\'gray\' SIZE=\'-1\'>Strøm = \" &stroem &\" kr.</td></tr>\"
response.write \"<tr><td width=300 align=right><FONT FACE=\'Tahoma\' COLOR=\'gray\' SIZE=\'-1\'>Reservering = 50 kr.</td></tr><tr><td width=300 align=right><FONT FACE=\'Tahoma\' COLOR=\'gray\' SIZE=\'-1\'>Enheder: \" &request.form(\"antalenheder\") &\" * \" &\"50 kr. = \" & antale &\" kr.</td></tr>\"

response.write \"<tr><td width=300 align=center><FONT FACE=\'Tahoma\' COLOR=\'gray\' SIZE=\'-1\'><U>Overnattende :</U></td></tr>\"

for n=1 to cint(request.form(\"antal\"))
response.write \"<tr><td width=300 align=right><FONT FACE=\'Tahoma\' COLOR=\'gray\' SIZE=\'-1\'>pris for : \" &request.form(\"BEBnavn\"&n) &\" = \" & BEBpris(n) &\" kr.</td></tr>\"

next
response.write \"<tr><td width=300 align=right><HR SIZE=1 ALIGN=right WIDTH=100 NOSHADE><FONT FACE=\'Tahoma\' COLOR=\'gray\' SIZE=\'-1\'>Samlet pris =\" &\" \" & ialt &\" kr.</tr></td>\"
response.write \"</table>\"
response.write \"<table width=500><tr><td width=100 align=center><FONT FACE=\'Tahoma\' COLOR=\'gray\' SIZE=\'-1\'><input type=button onClick=window.print() name=Print value=\'Udskriv Tilmelding\'></form></td></tr></table>\"

response.write \"</body></html>\"

conn.close
set conn = nothing

Set JMail = Server.CreateObject(\"JMail.SMTPMail\")
Response.Expires = 0

JMail.ServerAddress = \"*\"
JMail.sender = \"*\"
JMail.subject = \"*\"
JMail.AddRecipient \"*\"

JMail.Body = \"*\" & VbCrLf & VbCrLf
JMail.Body = \"*\" & VbCrLf & VbCrLf
JMail.Body = JMail.Body & \"*\" & VbCrLf
JMail.Body = JMail.Body & \"Kontaktperson:\" & strName & VbCrLf
JMail.Body = JMail.Body & \"Adresse:\" & strAddresse & VbCrLf
JMail.Body = JMail.Body & \"Post nr:\" & strPostnummer& \" \" & strBy & VbCrLf
JMail.Body = JMail.Body & \"Tlf nr: \" & strTlf & VbCrLf
JMail.Body = JMail.Body & \"e-mail: \" & strEmail & VbCrLf & VbCrLf
JMail.Body = JMail.Body & \"Samlet pris:\" &ialt &\" kr.\" & VbCrLf
JMail.Body = JMail.Body & \"*\" & VbCrLf
JMail.Body = JMail.Body & \"*\" & VbCrLf & VbCrLf
JMail.Body = JMail.Body & \"*\" & VbCrLf
JMail.Body = JMail.Body & \"*\"& VbCrLf
JMail.Body = JMail.Body & strCv

\'Her bliver form-mailens prioritet bestemt
\' 1 - højeste (Haster / Vigtigt)
\' 3 - normal
\' 5 - lavest
JMail.Priority = 3

JMail.Execute

end if
%>

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
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
Optimer MySql table med ASP Af poulmadsen i ASP	4	26/04/202417:16	26/04/202418:37
JSON Af ingeman i ASP	3	07/04/202417:53	08/04/202412:09

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