Archief - ctrl + v

update: inculde in verzend geimporteerd en naam geweizigd

contact.htm=
Code:
 <!DOCTYPE HTML PUBLIC '-//W3C//DTD HTML 4.01//EN' 'http://www.w3.org/TR/html4/strict.dtd'>

<html>
<head>
<title>Contacteer Ons</title>
</head>

<body text="#000000" bgcolor="#FFFFFF" link="#0000FF" vlink="#990099" alink="#FF0000">
<table width="95%" border="0" align="center" cellpadding="0" cellspacing="0">
  <tr>
    <td> <br>
      <h1 align="center">Contacteer Ons</h1>
    </td>
  </tr>
</table>
<table width="85%" border="0" align="center" cellpadding="0" cellspacing="0">
  <tr>
    <td>
      <table width="90%" border="0" align="center" cellpadding="0" cellspacing="0">
        <tr>
          <td>
            <form method="post" name="frmEnquiry" action="send_email.asp" onSubmit="return CheckForm();">
              <table width="450" border="0" align="center" cellpadding="0" cellspacing="0" >
                <!-- First tabe row -->
                <tr>
                  <td colspan="3"> <font size="2"><b>Velden met een * zijn verplicht
                    </b></font>
                </tr>
                <tr>
                  <td width="275">Voornaam* <br>
                    <input maxlength="30" name="voornaam">
                  </td>
                  <td width="150" colspan="2">Achternaam* <br>
                    <input maxlength="30" name="Achternaam">
                  </td>
                </tr>
                <tr>
                  <td width="275">Straat <br>
                    <input maxlength="50" name="straat1">
                    <br>
                    <input maxlength="50"  name="straat2">
                  <td width="150" colspan="2">Gemeente<br>
                    <input maxlength="50" name="gemeente">
                    <br>Postcode <input maxlength="15" size="10" name="postCode">
                  </td>
                </tr>
      <tr>
                  <td width="275">Telefoon/GSM Nummer <br>
                    <input maxlength="30" name="telefoon">
                  </td>
                  <td width="150" colspan="2">Fax<br>
                    <input maxlength="255" name="Fax">
                  </td>
                </tr>                <tr>
                  <td width="275">Firma<br>
                    <input maxlength="30" name="Firma">
                  </td>
                  <td width="150" colspan="2">E-mail Adres* <br>
                    <input maxlength="255" name="email">
                  </td>
                </tr>
                <td colspan="3" height="170">Bericht* <br>
                  <textarea name="Bericht" cols="50" rows="10"></textarea>
                </td>
                </tr>
                <tr>
        <td colspan="3" height="36">Prioriteit:<br>
          <input type="radio" name="prioriteit" value="Hoog">Hoog<br>
          <input type="radio" name="prioriteit" value="Normaal" checked="checked">Normaal<br>
          <input type="radio" name="prioriteit" value="Laag">Laag<br>
        </td>
      </tr>
      <tr align="center">
                  <td colspan="3" height="36">
                    <input type="submit" name="Submit" value="Verzenden">
                    <input type="reset" name="Reset" value="Wissen">
                  </td>
                </tr>
              </table>
            </form>
          </td>
        </tr>
      </table>
    </td>
  </tr>
</table>
</body>
</html>


send_email.asp=
Code:
<%
Response.Buffer = True

Dim strInhoud
Dim objCDOMail
Dim strBestemming
Dim strCCEmailAddress
Dim strBCCEmailAddress
Dim strVerzendEmailAddress


'----------------- Bestemming -------------------------------------------------

strBestemming = "[email protected]"

'----------- Carbon Copy e-mail adres, meerderen scheiden door ; --------------

strCCEmailAddress = ""

'----------- Blind Copy e-mail adres, meerderen scheiden door ; ---------------

strBCCEmailAddress = ""

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


'email adres lezen
strVerzendEmailAddress= Request.Form("email")


'gegevens naar strInhoud schrijven
strInhoud = "<h2>Email verzonden vanuit contactpagina in ASP</h2>"
strInhoud = strInhoud & "<br><b>Naam: </b>" & Request.Form("Voornaam") & " " & Request.Form("Achternaam")
strInhoud = strInhoud & "<br><br><b>Adres: </b>"
If (Request.Form("straat1")) > "" Then
   strInhoud = strInhoud & "<br>  " & Request.Form("straat1")
End If
If (Request.Form("straat2")) > "" Then
   strInhoud = strInhoud & " -  " & Request.Form("straat2")
End If
If (Request.Form("Postcode")) > "" Then
    strInhoud = strInhoud & "<br>  " & Request.Form("Postcode")
End If
If (Request.Form("gemeente")) > "" Then
   strInhoud = strInhoud & "<br>  " & Ucase(Request.Form("gemeente"))
End If

strInhoud = strInhoud & "<br><br><b>Firma: </b>" & Request.Form("firma")
strInhoud = strInhoud & "<br><b>Telefoon: </b>" & Request.Form("telefoon")
strInhoud = strInhoud & "<br><b>Fax: </b>" & Request.Form("fax")
strInhoud = strInhoud & "<br><b>E-mail: </b>" & strVerzendEmailAddress
strInhoud = strInhoud & "<br>Als prioriteit werd <b>" & request.form("prioriteit") & "</B> gekozen."
strInhoud = strInhoud & "<br><br><b>Bericht: </b><br>" & Replace(Request.Form("Bericht"), vbCrLf, "<br>")


'Is er een geldig email adres gegeven? zo niet, gebruik eigen email adres
If Len(strVerzendEmailAddress) < 5 OR NOT Instr(1, strVerzendEmailAddress, " ") = 0 OR InStr(1, strVerzendEmailAddress, "@", 1) < 2 OR InStrRev(strVerzendEmailAddress, ".") < InStr(1, strVerzendEmailAddress, "@", 1) Then
   'Zet verzender je eigen email adres
   strVerzendEmailAddress = strBestemming
End If   

'-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=- dit stuk code werkt niet met de server, herkent object CDO.newmail niet

'e-mail Verzenden

'e-mail server object maken
'Set objCDOMail = Server.CreateObject("CDO.NewMail") '-=-=-=-=-=-=-=-=-=-= probleem

'Afzender instellen
'objCDOMail.From = Request.Form("voornaam") & " " & Request.Form("achternaam") & " <" & strVerzendEmailAddress & ">"

'Ontvanger instellen
'objCDOMail.To = strBestemming

'eventuele Carbon Copy's instellen
'objCDOMail.Cc = strCCEmailAddress

'idem Black Carbon Copy's
'objCDOMail.Bcc = strBCCEmailAddress

'Onderwerp instellen
'objCDOMail.Subject = "Je hebt een bericht vanuit de contacteerpagina"

'Bericht zelf ingeven
'objCDOMail.Body = strInhoud

'Belangrijkheid van de mail: 0=Low, 1=Normal, 2=High)
'objCDOMail.Importance = 2

'Verzenden van de email
'objCDOMail.Send

''object sluiten
'Set objCDOMail = Nothing
'-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-Einde probleemcode

%>

<html>
<head>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<title>Contacteer Ons</title>
</head>
<body text="#000000" bgcolor="#FFFFFF" link="#0000FF" vlink="#990099" alink="#FF0000">
<table width="95%" border="0" align="center" cellpadding="0" cellspacing="0">
  <tr>
    <td height="2">
      <h1 align="center">Contacteer Ons</h1>
    </td>
  </tr>
</table>
<br>
<br>
<table width="85%" border="0" align="center" cellpadding="0" cellspacing="0">
  <tr>
    <td align="center"> Bedankt <% = Request.Form("Voornaam") %>&nbsp;<% = Request.Form("achternaam") %>, uw bericht is verzonden.
    <br>
    De email zal snel zijn bestemming bereiken, en ik zal hem zo snel mogelijk beantwoorden!<hr>
    Klik <a href=index.htm>hier</a> om terug te keren naar de index.</td><br>
    <hr></tr>
</table>
<% response.write(strInhoud) %>
<div align="center"><br>
</div>
</body>
</html>


enige probleem is aangeduid in de code, nog steeds problemen met het object cdosys.mail, ook hebk cdosys.newmail, cdo.mail, cdo.newmail, cdonts.mail en cdonts.newmail en andere varianten geprobeerd...

enkel dus problemen met het herkennen van dit object dus.. voor de rest werkt alles uitstekend

als iemand daar mss ook ineens een oplossing voor kan geve

tis voor men stage... (moet wel asp zijn, geen php of jmail of iets anders

ge kunt et testen op http://www.rubenwilmssen.be/test/contact2.htm maar het mailt nog nix dus kunde nix volspamme

omfg · 27 jan 2006

Code:

lb42-z05v-vk9s-i7bm-58s5

ne serial voor een of ander spel dus :unsure:

pieta · 27 jan 2006

C:\PIETER\moesieca

muizek alvolonte

murdoc · 27 jan 2006

-Als ne prof u iets begint uit te leggen da ge fout hebt gezegd, en ge ziet u fout in, geen schrik hebben van zijn uitleg te onderbreken en zelf verder te doen. Dan ziet hij toch da u frank gevallen is en kunt ge eventueel nog iets extra uit de brand slepen.

:crazy:

Grim · 27 jan 2006

Wa voor ne flauwe zever isda nu

Mijn ctrl+v:

Me First and the Gimmie Gimmies

TekkaBlade · 27 jan 2006

"penetratiedrang "

zo, daar heb je het!

EternalSilence · 27 jan 2006

Les émeutes en France nuisent au tourisme.

ik ben bezig met een taak van frans .. een heel artikel vertalen en bespreken enzo

(da is den titel

)

evil aardappel · 27 jan 2006

Alle, ge zijt al ver geraakt.

EternalSilence · 27 jan 2006

is al halfweg ze

had da gewoon gekopieert omda ik het nie wilde overtypen

(wrom vinden ze anders ctrl c en ctrl v uit hee)

BloodSeaker · 27 jan 2006

Inderdaad, u ziet het goed, niks want ik heb net mijn pc opgestart

EternalSilence · 27 jan 2006

BloodSeaker zei:
Inderdaad, u ziet het goed, niks want ik heb net mijn pc opgestart

spectrious · 27 jan 2006

Basic monthly volume:
Monthly volume used 10 GB out of 10 GB (0 GB remaining).

Jah nu wete het ook :unsure:

LoRdOfMaDnEs · 27 jan 2006

<Sadistic_Mesaja> i most kill my doctor of phisics

citrofenwick · 27 jan 2006

http://www.corel.co.uk/servlet/Sate..._51515=null&remember=false&qt_5133_50639=null

om een nieuwe account aan te maken voor garmir :unsure:

Archief - ctrl + v

sir oinksalot

Legacy Member

josuwa

Legacy Member

Tha_nOn

Legacy Member

Razzia

Legacy Member

aXl_

Legacy Member

DiDoria

Legacy Member

Frey

Legacy Member

omfg

Legacy Member

pieta

Legacy Member

murdoc

Legacy Member

Grim

Legacy Member

TekkaBlade

Legacy Member

EternalSilence

Legacy Member

evil aardappel

Legacy Member

EternalSilence

Legacy Member

BloodSeaker

Legacy Member

EternalSilence

Legacy Member

spectrious

Legacy Member

LoRdOfMaDnEs

Legacy Member

citrofenwick

Legacy Member