Til Tandpine

ref ?

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.

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?

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

tak :)

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

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

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.

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

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).

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

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. :)

ok, i lige måde...

her kommer koden:

<!-- Minus AutoDato -->
<META NAME=\"Generator\" CONTENT=\"Stone\'s WebWriter 3\">
<!-- METADATA TYPE=\"typelib\"
                            UUID=\"00000205-0000-0010-8000-00AA006D2EA4\"
                            NAME=\"ADODB Type Library\" -->
<%

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><!-- Minus AutoDato --><title>reservation 4</title><META NAME=Generator CONTENT=Stone\'s WebWriter 3><STYLE TYPE=text/css><!-- body { margin-top: 0px; margin-right: 0px; margin-bottom: 0px; margin-left: 0px; font-family: Tahoma, Verdana, Arial, Helvetica, sans-serif; font-size: 11px; background-color: white; color: #000066; text-align: justify; } td { font-family: Tahoma, Verdana, Arial, Helvetica, sans-serif; font-size: 11px; color: gray; text-align: none} p { font-family: Tahoma, Verdana, Arial, Helvetica, sans-serif; font-size: 11px; color: #000066; text-align: justify} a { color: darkblue; text-decoration: none} a:hover {  color: green; text-decoration: none} .center {  text-align: center} textarea, input, select { background-color: #FFFFFF; font-family: Tahoma, Verdana; font-size: 11px; border-width: 1px; border-color: #000000; border-style: solid}--></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><!-- Minus AutoDato --><title>Pladsreservation til Å-festival</title><META NAME=Generator CONTENT=Stone\'s WebWriter 3><STYLE TYPE=text/css><!-- body { margin-top: 0px; margin-right: 0px; margin-bottom: 0px; margin-left: 0px; font-family: Tahoma, Verdana, Arial, Helvetica, sans-serif; font-size: 11px; background-color: white; color: #000066; text-align: justify; } td { font-family: Tahoma, Verdana, Arial, Helvetica, sans-serif; font-size: 11px; color: gray; text-align: none} p { font-family: Tahoma, Verdana, Arial, Helvetica, sans-serif; font-size: 11px; color: #000066; text-align: justify} a { color: darkblue; text-decoration: none} a:hover {  color: green; text-decoration: none} .center {  text-align: center} textarea, input, select { background-color: #FFFFFF; font-family: Tahoma, Verdana; font-size: 11px; border-width: 1px; border-color: #000000; border-style: solid}--></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
%>