Postkort - websmed

Jeg har ikke tid til at lave det til dig men jeg klan vise dig et sted hvor du kan hente et færdigt koncept ?

__>> det er ikke smart at give så mange point væk tror jeg...

Du er nok den sidste herinde der skal tale om at opføre sig smart cyberesben.

vi havde en lang snak forleden dag om givning af points osv., men dette spm er nu blevet slettet....

men der var vi alle mere eller mindre enige om at der skulle være loft på det med points

og hvad præcist er det ved min opførsel du er utilfreds med?

Hej @
Du finder et færdig et på denne adresse,
http://4guysfromrolla.com/webtech/042399-1.shtml

Hilsen hansen.

Hej hansen
Har du selv fået dette script til at virke? Jeg kan ikke få det til at virke.

Jeg vil godt hjælpe dig med at lave et postkort script. Skriv på svend_bh@hotmail.com hvis du er intereseret.

M.v.h.

      Svend H. B. Henriksen.

Hej @ og S

Først s, jeg har leget lidt med samme script som du nu er gået igen med, men fik det heller ikke til at virke.

Og så @ jeg er også meget intresseret i det script hvis du går igang med at lave det og smider gerne en god håndfuld point ud på at få det lavet.

Er der nogen som har fået noget til at virke? Det er et script som der ligger mange point i!

Jeg er igang med at lave scriptet.

Hej S

Godt intativ arz@mail.kni.gl sender du det til mig smider jeg 200 point af til dig for din tjeneste.

1000 points???
Er det ikke lidt at ødelægge det her glimrende site?
havde 200 ikke været rigeligt?

Det script kunne i godt plante her, og så længe s får sine 1000 point, så kan han vel være tilfreds nok, vi andre kunne måske også være interesseret i dette script, og det kan ikke være rigtigt at vi alle skal smide 200 point efter det. Det er ikke penge men pts. vi snakker om her, så s: Jeg syntes det ville være en fed gestus at offentliggøre scriptet her, det er vel også det hele eksperten går ud på!!

jeg er enig i at 1000 points er lidt rigeligt

theartist : jeg giver dig helt ret, men det er en stor opgave han er sat på og det ser ud som om at han ialt kan hente små 1500 point på denne opgave og det er vel meget rimligt hvis man sætter flere dage af til at løse en kompliceret opgave, jeg tror da også at det script vil blive lagt ud på eksperten, eller et link til et sted hvor det kan hentes, for som du selv siger så er det jo netop et eksperten handler om.

Nu hvor i alle sammen snakker om, at 1000 point er for mange point.
Så syntes jeg lige, at pkj35 skal læse dette spm.

Da han nok ønsker 1500 point for hver opgave han skal løse om det så er noget så simpelt som hvad de grundlæggende koder i et html koder er.

Jeg syntes at alle script m.m skal ligges et sted på eksperten også et link i hver spm. så vi alle få noget ud af hvert spm.

/MCP

eller folk kan uploade dem og skrive en URL her

Så ville eksperten lige komme 2 takkere højere end det er :o)

Jeg skal lige have skrevet scriptet først...

Når men der jo intet der er så dejligt, som når et spm bliver set og kommenteret af alle. Og det er vits snart sket for dettet spm.

God arbejdslyst S

/MCP

Ja god arbejdslyst.....

Bliver det til noget med det script `?

Jeg har haft nogle problemer med min computer, det kommer snart...

Hvordan giver jeg S point når det kun er en kommentar fra ham?

@!

Du kan jo starte med, at Afvise hansen´s svar og derefter få S til, at give et svar og til sidst så giver du ham de point :o)

Ret og lige til...

/MCP

Hmmmmmmm.
forresten hvor er scriptet egentlig henne??

Det vil jeg da gerne se

/MCP

Her er mit svar...

burde i ikke vise scriptet her? er det ikke det eksperten er til for?

OK, når jeg har fået pointene...

Jaja så venter vi bare på @!

Og vi venter, venter, venter, venter, venter, venter, venter, venter, venter, venter, venter, venter, venter, venter, venter, venter, venter, venter, venter, venter, venter, venter, venter, venter, venter, venter, venter, venter, venter, venter, venter, venter, venter, venter, venter, venter, venter, venter, venter, venter, venter, venter, venter, venter, venter, venter Og venter

Jaja så venter vi bare på S!

Og vi venter, venter, venter, venter, venter, venter, venter, venter, venter, venter, venter, venter, venter, venter, venter, venter, venter, venter, venter, venter, venter, venter, venter, venter, venter, venter, venter, venter, venter, venter, venter, venter, venter, venter, venter, venter, venter, venter, venter, venter, venter, venter, venter, venter, venter, venter Og venter

Ok, her har i scriptet...


------KLIP----Postkort.asp------


<%
'© Svend H. Bang Henriksen, smbang@mail1.stofanet.dk, svend_bh@hotmail.com
'opsaetning:
'----------------------------------------------
'Internetstien til "login.html":
homepage = "http://www.vels.dk/login.html"

'Det navn der skal staa under "venlig hilsen" sidst i en email (nu linie med "VbCrLf"):
Navn = "Jesper Vels" & VbCrLf & "webmaster@vels.dk"

'Din mailhost:
Mailhost = "vels.dk"

'Det navn der skal komme frem i feltet "fra" i emailprogrammet hos modtagerne:
Fromname = "Vels postkortservice"

'Afsenderens navn:
Sender = "Jesper Vels"

'Den tekst der skal komme frem i feltet subject i emailprogrammet:
Subject = "Du har modtaget et digitalt postkort"

'----------------------------------------------


sub login()


set conn = server.createobject("ADODB.connection")

conn.Open "DBQ=" & server.mappath("postkort.mdb") & ";Driver={Microsoft Access Driver (*.mdb)}"

Sql = "SELECT * FROM postkort where til='" & request.form("Brugernavn") & "' and password='" & request.form("password") & "' order by til"


set RS = conn.execute( SQL )

if request.form("password") = rs("password") then

session("inde") = True
session("brugernavn") = request.form("brugernavn")

call wiew()

else

response.redirect "login.html"

end if



conn.close
set conn = Nothing
set rs = Nothing



end sub


sub wiew()

if session("inde") = True then

set conn = server.createobject("ADODB.connection")

conn.Open "DBQ=" & server.mappath("postkort.mdb") & ";Driver={Microsoft Access Driver (*.mdb)}"

Sql = "SELECT * FROM postkort where til='" & session("brugernavn") & "' and password='" & request.form("password") & "' order by til"


set RS = conn.execute( SQL )



%>

<html>
<head>
<title>
<%=rs("Titel") %>
</title>
</head>
<body bgcolor="<%=rs("Baggrundsfarve") %>" text="<%=rs("Textfarve") %>">
<div align="center">
<h1>
<%=rs("Fra") %> har sendt dig et postkort.
</h1>
<br>
<h2>
Du kan svare ved at klikke <a href="mailto:<%=rs("Fraemail") %>">her</a>.
</h2>
<img src="<%=rs("Billede") %>">
</div>
<p>
<h4>
<%=rs("Besked") %>
</h4>
<br>
<br>
<br>
<br>
<div align="right">
<h3>
<%=rs("Underskrift") %>
</h3>
</div>
</body>
</html>

<%


conn.close
set conn = Nothing
set rs = Nothing

else

response.redirect "login.html"

end if

end sub

sub indset()


Bogstaver = Array("a","b","c","d","e","f","g","h","i","j","k","l","m","n","o","p","q","r","s","t","u","v","w","x","y","z",1,2,3,4,5,6,7,8,9,0)

Password = ""

for i=0 to 6

Randomize
Nummer = Int(Rnd*36)

Password = Password & Bogstaver(Nummer)

next



set my_conn = server.createobject("ADODB.connection")

my_conn.Open "DBQ=" & server.mappath("postkort.mdb") & ";Driver={Microsoft Access Driver (*.mdb)}"
set rs = Server.CreateObject("ADODB.Recordset")




Til = request.form("recip_name")
Tilemail = request.form("recip_email")
Fra = request.form("Sender_name")
Fraemail = request.form("Sender_email")
Billede = request.form("pic_select")
Textfarve = request.form("Text_color")
Baggrundsfarve = request.form("Back_color")
Titel = request.form("the_title")
Besked = request.form("the_message")
Underskrift = request.form("sig_line")

    strSql = "insert into postkort (Password, Til, Tilemail, Fra, Fraemail, Billede, Textfarve, Baggrundsfarve, Titel, Besked, Underskrift) values ('"
    strSql = StrSql & Password & "', '"
    strSql = StrSql & Til & "', '"
    strSql = StrSql & Tilemail & "', '"
    strSql = StrSql & Fra & "', '"
    strSql = StrSql & Fraemail & "', '"
    strSql = StrSql & Billede & "', '"
    strSql = StrSql & Textfarve & "', '"
    strSql = StrSql & Baggrundsfarve & "', '"
    strSql = StrSql & Titel & "', '"
    strSql = StrSql & Besked & "', '"
    strSql = StrSql & Underskrift & "')"

my_conn.Execute (StrSql)
my_conn.Close
set my_conn = nothing
set rs = Nothing

Response.write("<h3>Din besked er blevet sendt.</h3>")



      Set JMail = Server.CreateObject("JMail.SMTPMail")
     
      JMail.ServerAddress  = Mailhost
      JMail.Sender          = Sender
      JMail.Sendername      = Fromname
      JMail.AddRecipient    ( Tilemail )

      JMail.Priority        = 1

      JMail.Subject        = Subject
      JMail.body            = "Fra & " har d. " & date & " kl. " & time " sendt dig et digitalt postkort." & VbCrLf & VbCrLf & "Du kan hente det ved at gå ind på "& homepage & " og indtaste følgende som brugernavn og password." & VbCrLf & VbCrLf & "Brugernavn:" & Navn & VbCrLf & "Password:" & Password & VbCrLf & VbCrLf & VbCrLf & "Med venlig hilsen" & VbCrLf & VbCrLf & ditnavn"
      JMail.AddHeader        "Originating-IP", Request.ServerVariables("REMOTE_ADDR")
      JMail.ContentType    = "text/html"
      JMail.Charset        = "iso-8859-1"
      JMail.ContentTransferEncoding = "8bit"


end sub


if not ikkeok then

if request.querystring("mode") = "wiew" then
call wiew()
elseif request.querystring("mode") = "login" then
call login()
else
call indset()
call sendemail()
end if


end if
%>


------KLIP------



------KLIP----login.html------

<html>
<head>
<title>
Login til postkort
</title>
</head>
<body>
<form method="post" action="postkort.asp?mode=login">
<table>
<tr>
<td>
Brugernavn:
</td>
<td>
<input name="brugernavn" size=30>
</td>
</tr>
<tr>
<td>
Password:
</td>
<td>
<input type="password" name="password" size=30>
</td>
</tr>
</table>
<br>
<br>
<input type="submit" value="Login">
</form>
</body>
</html>

------KLIP------

------KLIP----postkort.html------


<html>

<head>
<title>E-card</title>
</head>

<body>
<font face="verdana,arial"><a NAME="TOP">

<table width="478" border="0" cellspacing="0" cellpadding="0" height="70" align="center">
</table>
<a NAME="TOP">

<h2 align="center">Lav dit E-kort</h2>

<form METHOD="POST" ACTION="postkort.asp">
  <input type="hidden" name="action_code" value="NEW"><div align="left"><p>&nbsp;</p>
  </div><div align="center"><center><table border="0" cellpadding="2" width="514"
  height="10" bgcolor="#C0C0C0">
    <tr>
      <td width="514" height="10"><strong>Vælg et billed:</strong></td>
    </tr>
  </table>
  </center></div><div align="center"><center><table border="0" cellpadding="2" width="515"
  bgcolor="#C0C0C0">
    <tr>
      <td><div align="center"><center><p><img src="1.jpg" width="109" height="167"
      alt="1.jpg (49503 bytes)"><br>
      <input type="radio" value="1.jpg" checked name="pic_select"></td>
      <td align="center"><div align="center"><center><p><img src="2.jpg" width="109"
      height="166" alt="2.jpg (41140 bytes)"><br>
      <input type="radio" name="pic_select" value="2.jpg"></td>
    </tr>
    <tr align="center">
      <td><div align="center"><center><p><img src="3.jpg" width="109" height="165"
      alt="3.jpg (40672 bytes)"><br>
      <input type="radio" name="pic_select" value="3.jpg"></td>
      <td align="center"><div align="center"><center><p><img src="4.jpg" width="109"
      height="165" alt="4.jpg (55581 bytes)"><br>
      <input type="radio" name="pic_select" value="4.jpg"></td>
    </tr>
    <tr align="center">
      <td><div align="center"><center><p><img src="5.jpg" width="109" height="164"
      alt="5.jpg (25061 bytes)"><br>
      <input type="radio" name="pic_select" value="5.jpg"></td>
      <td align="center"><div align="center"><center><p><img src="6.jpg" width="109"
      height="164" alt="6.jpg (61940 bytes)"><br>
      <input type="radio" name="pic_select" value="6.jpg"></td>
    </tr>
    <tr align="center">
      <td><div align="center"><center><p><img src="7.jpg" width="109" height="165"
      alt="7.jpg (31531 bytes)"><br>
      <input type="radio" name="pic_select" value="7.jpg"></td>
      <td align="center"><div align="center"><center><p><img src="8.jpg" width="109"
      height="163" alt="8.jpg (88852 bytes)"><br>
      <input type="radio" name="pic_select" value="8.jpg"></td>
    </tr>
  </table>
  </center></div><div align="center"><center><p>&nbsp;</p>
  </center></div><div align="center"><center><table BGCOLOR="#C0C0C0" BORDER="0" WIDTH="515"
  cellspacing="2" cellpadding="2">
    <tr>
      <td><div align="center"><center><p><b>Hvem er E-kortet fra?</b> </td>
    </tr>
    <tr align="center">
      <td ALIGN="center">Name:&nbsp;&nbsp;<input TYPE="TEXT" NAME="sender_name" MAXLENGTH="100"
      SIZE="35">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</td>
    </tr>
    <tr align="center">
      <td ALIGN="center">E-mail:&nbsp;&nbsp;<input TYPE="TEXT" NAME="sender_email"
      MAXLENGTH="70" SIZE="35">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</td>
    </tr>
    <tr align="center">
      <td><div align="center"><center><p><b>Hvem er E-kortet til?</b> </td>
    </tr>
    <tr align="center">
      <td ALIGN="center">Name:&nbsp;&nbsp;<input TYPE="TEXT" NAME="recip_name" MAXLENGTH="100"
      SIZE="35">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</td>
    </tr>
    <tr align="center">
      <td ALIGN="center">E-mail:&nbsp;&nbsp;<input TYPE="TEXT" NAME="recip_email" MAXLENGTH="70"
      SIZE="35">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</td>
    </tr>
    <tr align="center">
      <td ALIGN="CENTER"><b>Tekst farve:</b> <select NAME="text_color" size="1">
        <option selected value="#000000">Sort</option>
        <option value="#FFFFFF">Hvid</option>
        <option value="#FF0000">Rød</option>
        <option value="#00FF00">Grøn</option>
        <option value="#0000FF">Blå</option>
        <option value="#99FFFF">Lyseblå</option>
        <option value="#FFFF33">Gul</option>
        <option value="#9933FF">Pink </option>
        <option value="#FF9933">Orange </option>
        <option value="Aqua">Aqua </option>
      </select> </td>
    </tr>
    <tr align="center">
      <td ALIGN="CENTER"><b>Baggrunds farve:</b> <select NAME="back_color" size="1">
        <option selected value="#FFFFFF">Hvid</option>
        <option value="#000000">Sort</option>
        <option value="#FF0000">Rød</option>
        <option value="#00FF00">Grøn</option>
        <option value="#0000FF">Blå</option>
        <option value="#99FFFF">Lyseblå</option>
        <option value="#FFFF33">Gul</option>
        <option value="#9933FF">Pink </option>
        <option value="#FF9933">Orange </option>
        <option value="Aqua">Aqua </option>
      </select> </td>
    </tr>
<!/TABLE>
<!TABLE BGCOLOR="#99FF99" BORDER=1 WIDTH=515>
    <tr align="center">
      <td ALIGN="CENTER"><b>Titlen til dit E-kort:</b> </td>
    </tr>
    <tr align="center">
      <td ALIGN="CENTER"><input TYPE="TEXT" NAME="the_title" MAXLENGTH="75" SIZE="55"> </td>
    </tr>
    <tr align="center">
      <td ALIGN="CENTER"><b>Din besked:</b> </td>
    </tr>
    <tr align="center">
      <td ALIGN="CENTER"><textarea NAME="the_message" WRAP="VIRTUAL" ROWS="4" COLS="60"></textarea>
      </td>
    </tr>
    <tr align="center">
      <td ALIGN="CENTER"><b>&quot;Underskrift&quot;:</b><br>
      </td>
    </tr>
    <tr align="center">
      <td ALIGN="CENTER"><input TYPE="TEXT" NAME="sig_line" MAXLENGTH="100" SIZE="35"><br>
      <br>
      </td>
    </tr>
  </table>
  </center></div><div align="center"><center><p><input TYPE="submit" VALUE="Preview"> <input
  TYPE="reset" value="Slet"> </p>
  </center></div>
</form>
</a></font>

<p align="center"><font face="verdana,arial"><font size="-1"><b><a NAME="TOP">©1999 b</a>y
<a href="mailto:e-card@vels.dk">Vels.dk</a></b></font><br>
</font></p>
<div align="center"><center>

<table>
  <tr>
    <td valign="top" align="center"><p ALIGN="CENTER"><a
    HREF="http://webhulen.dk/cgi-bin/banswap/ads.pl?member=vels;banner=NonSSI;page=03"><img
    SRC="http://webhulen.dk/cgi-bin/banswap/ads.pl?member=vels;page=01" HEIGHT="60"
    WIDTH="250" BORDER="0" ALT="Webhulen's Bannerswap"></a><br>
    <small><a HREF="http://banner.webhulen.dk/">Webhulen's Bannerswap</a></small></td>
    <td valign="top" align="center"><p ALIGN="CENTER"><a
    HREF="http://webhulen.dk/cgi-bin/banswap/ads2.pl?member=vels;banner=NonSSI;page=03"><img
    SRC="http://webhulen.dk/cgi-bin/banswap/ads2.pl?member=vels;page=01" HEIGHT="60"
    WIDTH="250" BORDER="0" ALT="Webhulen's Bannerswap"></a><br>
    <small><a HREF="http://banner.webhulen.dk/">Webhulen's Bannerswap</a></small></td>
  </tr>
</table>
</center></div>
</body>
</html>

------KLIP------


Det var det...


Derudover kræver det en acces-database med følgende felter:


ID: Autonumerering
Password: Notat
Til: Notat
Tilemail: Notat
Fra: Notat
Fraemail: Notat
Dato: Dato
Billede: Notat
Textfarve: Notat
Baggrundsfarve: Notat
Titel: Notat
Besked: Notat
Underskrift: Notat



Det skal lige bemærkes at scritet i øjebliket er tilpasset til @ webside (især postkort.html)...

Derudover bruger det Jmail...


Håber i kan få det til at virke...




M.v.h.

      Svend H. B. Henriksen.

taktak :o)

Måske skal jeg bruge det en dag *S*

/MCP

copyright og copyright...

Hvad snakker du om Sky...?

s har travlt med at gøre opmærksom (i kommentarer o.l.) på  hans [påståede] (no offence s*) copyright...

LOL

s'cuse? chatslang?

Det var bare for sjov...

oh..

JAAAAAAAAAAAAAAAAAAAA! Sommerferie! Sluttede eksamenerne med 11 i engelsk...

Nu har jeg sat mig ned og kigget på scriptet (copy/paste ;-), reaktion: puh - lidt rodet kode ikk'

Nej selvfølgelig er det flot - og hvis der er bare den mindste bug skal jeg nok skrige på hjælp!

updates på asppostkortsdagbogen følger..

/p

det skal nok lige nævnes at databasen skal hedde postkort.mdb - har du lavet en, vi kan kigge efter s?

Jeg har kun scripetet liggende på PWS... Efter subnet lukkede for ASP har jeg ikke kunne finde et nyt sted på internettet...
Kender nogle af jeg en ny gratis udbyder der understøtter ASP?
Men jeg skal da gerne ligge det hele ud til download...

Det hele kan hentes på henholdsvis:

http://www.svend.subnet.dk/postkort/login.html
http://www.svend.subnet.dk/postkort/postkort.html
http://www.svend.subnet.dk/postkort/postkort.asp
http://www.svend.subnet.dk/postkort/postkort.mdb

Filerne skulle kunne hentes nu hvor subnet har lukket for ASP. Det vil sige at det altså IKKE virker derfra...

De billeder der er brugt er @'s...


M.v.h.

      Svend H. B. Henriksen.

Uhm nu har jeg lige haft lejlighed til at rode lidt med det men jeg kan ikke få det til at virke, se e,v,t http://www.piteraq.gl/postkort/postkort.html. Der er 200 point til den som hjælper mig igennem fejlen.

Prøver lige en gang til :-)
http://www.piteraq.gl/postkort/postkort.html

det virker da ikke... Nu har jeg rodet rundt med det i flere timer, men jeg får stadig denne fejlmeddelelse:

Microsoft OLE DB Provider for ODBC Drivers error '80004005'

[Microsoft][ODBC Microsoft Access Driver] Operation must use an updateable query.

/scooter/postkort/postkort2.asp, line 177