Galere avec .asp

Bonjour a tous
alors la j'ai besoin de tres bons programmeurs pr m'expliquer car je ne compds rien a ce code qui correspond a une page du site www.g2j.com ds contactez nous ds nous poser des questions (liens en bas de la page)
la page et d'autres etaient en .asp et je les refais en .html pr plus de facilté...
ms bon si vous regardez la page que je vous ai indiqué moi qd je l'ouvre sous dreamweaver il y a du code qui s'inscrit ds les zones que l'internaute remplit en principe

vu que je pige rien je vous fait part du code qui est long
<!--#include FILE="conn.inc" -->
<%
select case request("action")
case "Envoyer"

if request("email")<>"" then

txtMail = cStr(Request("email"))
errormail=true

if InStr(1, txtMail, "@", 1) < 2 then
errormail=false
else
if InStr(1, txtMail, ".", 1) < 4 then
errormail=false
end if
end if
if errormail<>false then
Set newslist = Server.CreateObject("ADODB.Recordset")
newslist.Open "newslist", conn, 3, 3
newslist.movefirst
newslist.AddNew
newslist.Fields("date") = Date
newslist.Fields("mail") = request("email")
if request("info")="clt" then
newslist.Fields("client") = "true"
else
newslist.Fields("adherent") = "true"
end if
newslist.update
newslist.close
set newslist=nothing
end if
end if

Set contacts = Server.CreateObject("ADODB.Recordset")
contacts.Open "contacts", conn, 3, 3
contacts.movefirst
contacts.AddNew
contacts.Fields("date") = Date
contacts.Fields("nom") = request("nom")
contacts.Fields("prenom") = request("prenom")
contacts.Fields("entreprise") = request("entreprise")
contacts.Fields("email") = request("email")
contacts.Fields("tel") = request("tel")
contacts.Fields("fax") = request("fax")
contacts.Fields("fonction") = request("fonction")
contacts.Fields("secteur") = request("secteur")
contacts.Fields("adresse") = request("adresse")
contacts.Fields("cp") = request("cp")
contacts.Fields("ville") = request("ville")
contacts.Fields("pays") = request("pays")
if request("diffusion")<>"" then
contacts.Fields("diffusion") = "true"
end if
if request("info")="clt" then
contacts.Fields("client") = "true"
else
contacts.Fields("adherent") = "true"
end if
contacts.Fields("question") ="true"
contacts.Fields("txtquestion") = request("txtquestion")
contacts.update
contacts.close
set contacts=nothing

HTML = HTML & "Nous avons pris en compte votre question." & VbCrlf
HTML = HTML & "voici les informations que vous nous avez communiqué :" & VbCrlf
HTML = HTML & "" & VbCrlf
HTML = HTML & "Question : "&request("txtquestion")&"" & VbCrlf
HTML = HTML & "" & VbCrlf
HTML = HTML & "Nom : "&request("nom")&"" & VbCrlf
HTML = HTML & "" & VbCrlf
HTML = HTML & "Prénom : "&request("prenom")&"" & VbCrlf
HTML = HTML & "" & VbCrlf
HTML = HTML & "Entreprise : "&request("entreprise")&"" & VbCrlf
HTML = HTML & "" & VbCrlf
HTML = HTML & "E-mail : "&request("email")&"" & VbCrlf
HTML = HTML & "" & VbCrlf
HTML = HTML & "Téléphone : "&request("tel")&"" & VbCrlf
HTML = HTML & "" & VbCrlf
HTML = HTML & "Fax : "&request("fax")&"" & VbCrlf
HTML = HTML & "" & VbCrlf
HTML = HTML & "Fonction :"& request("fonction") & VbCrlf
HTML = HTML & "" & VbCrlf
HTML = HTML & "Secteur d'activité : "&request("secteur")&"" & VbCrlf
HTML = HTML & "" & VbCrlf
HTML = HTML & "Adresse : "&request("adresse")&"" & VbCrlf
HTML = HTML & "" & VbCrlf
HTML = HTML & "Code Postal : "&request("cp")&"" & VbCrlf
HTML = HTML & "" & VbCrlf
HTML = HTML & "Ville : "&request("ville")&"" & VbCrlf
HTML = HTML & "" & VbCrlf
HTML = HTML & "Pays : "&request("pays")&"" & VbCrlf
HTML = HTML & "" & VbCrlf
HTML = HTML & "" & VbCrlf
HTML = HTML & "Nous traiterons votre demande dans les plus brefs délais." & VbCrlf
HTML = HTML & "" & VbCrlf
HTML = HTML & "A bientot sur le site G2J.com" & VbCrlf
HTML = HTML & "" & VbCrlf
HTML = HTML & "" & VbCrlf
HTML = HTML & "Ps : vous avez été automatiquement ajouté a notre liste de contacts." & VbCrlf
HTML = HTML & "Vous disposez d'un droit d'accès, de modification, de rectification" & VbCrlf
HTML = HTML & "et de suppression des données qui vous concernent." & VbCrlf
HTML = HTML & "info@g2j.com pour vous désinscrire de la news list." & VbCrlf
HTML = HTML & "" & VbCrlf

Set Mail = Server.CreateObject("Persits.MailSender")
Mail.Host = "plutone.internet-fr.net"
Mail.From = "info@g2j.com"

if request("email")<>"" then
Mail.AddAddress request("email")
end if
Mail.AddAddress "info@g2j.com"
Mail.Subject = "Info G2J.com"
Mail.Body = HTML
Mail.Send
Mail.close
set mail=nothing
HTML =""

end select
conn.close
set conn=nothing
%>

<html>

<head>
<title>g2j.com</title>
<meta name="descrition" content="g2j. Visioconference">
<meta name="keywords" content="visioconference, visioconfŽrence, videoconference, call back, telephonie, formation, teleformation, video, vidéo, Paris, France, salles de visioconference, vendome, martinique, guadeloupe, guyane, dom">
<meta name="robots" content="index, follow">
<meta name="revisit-after" content="15 days">
<meta name="copyright" content="G2j@G2j.com">
<meta name="publisher" content="g2j@g2j.com">
<meta name="Content-Language" content="fr">
<meta name="GENERATOR" content="Microsoft FrontPage 4.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
</head>

<body bgcolor="#CDDFF4" text="#000066" link="#1A5FBE" vlink="#1A5FBE" alink="#1A5FBE" topmargin="0" leftmargin="0">

<script Language="JavaScript">
<!--
function verif_form(twin_form)
{

if (twin_form.email.value.length < 1 )
{
alert("\nMerci d'inscrir votre adresse mail.");
twin_form.email.focus();
return (false);

}
if ((twin_form.email.value.indexOf ('@',0) == -1) || (twin_form.email.value.indexOf ('.',0) == -1))
{
alert("\nLe champs E-mail doit contenir un \"@\" et un \".\".\n\nMerci de réinscrire votre adresse mail");
twin_form.email.focus();
return (false);

}
if (twin_form.nom.value == "")
{
alert("Tapez une valeur pour le champ \"nom\".");
twin_form.nom.focus();
return (false);
}
if (twin_form.nom.value.length > 50)
{
alert("Tapez au plus 50 caractères dans le champ \"nom\".");
twin_form.nom.focus();
return (false);
}

var radioSelected = false;
for (i = 0; i < twin_form.info.length; i++)
{
if (twin_form.info[i].checked)
radioSelected = true;
}
if (!radioSelected)
{
alert("Sélectionnez une des options \"Client ou Adhérent \".");
return (false);
}
return (true);

}
//-->
</script>

<div align="left">
<table border="0" width="601" height="1" cellspacing="0" cellpadding="0">
<form method="POST" action="question.asp" name="Twin_form" onsubmit="return verif_form(this)">
<tr>
<td width="592" height="5" colspan="2">
<p align="left"><b><i><font color="#1A5FBE" face="Arial" size="2">Accueil</font></i></b></p>
</td>
</tr>
<tr>
<td width="592" height="13" colspan="2"><b><font color="#000066" size="2" face="Arial">Posez vos questions : </font></b></td>
</tr>
<tr>
<td width="592" height="1" colspan="2"><font face="Arial" size="2"><%if request("action")="Envoyer" then%> <%response.write ("<br>Votre Question a correctement été envoyé.<br><a href=contacts.asp>Cliquez ici pour retourner sur la page precedente.</a>")
end if%>Vous avez besoin d'informations complémentaires, nous sommes là pour vous répondre. <br>
Merci de laisser votre message et vos coordonnées ci-dessous :</font></td>
</tr>
<tr>
<td width="600" height="1" colspan="2">
<p align="center"><textarea name="txtquestion" cols="72" rows="8"></textarea></p>
</td>
</tr>
<tr>
<td width="128" height="1"><font size="2" face="Arial">Nom :</font></td>
<td width="470" height="1"><font size="2" face="Arial"><input type="text" name="nom" value="%=request("nom")%" size="21"> *</font></td>
</tr>
<tr>
<td width="128" height="1"><font size="2" face="Arial">Prénom :</font></td>
<td width="470" height="1"><font size="2" face="Arial"><input type="text" name="prenom" value="<%=request("prenom")%>" size="21"></font></td>
</tr>
<tr>
<td width="128" height="1"><font size="2" face="Arial">Entreprise :</font></td>
<td width="470" height="1"><font size="2" face="Arial"><input type="text" name="entreprise" value="<%=request("entreprise")%>" size="21"></font></td>
</tr>
<tr>
<td width="128" height="1"><font size="2" face="Arial">E-mail :</font></td>
<td width="470" height="1"><font size="2" face="Arial"><input type="text" name="email" value="<%=request("email")%>" size="21"> *</font></td>
</tr>
<tr>
<td width="128" height="1"><font size="2" face="Arial">Téléphone :</font></td>
<td width="470" height="1"><font size="2" face="Arial"><input type="text" name="tel" value="<%=request("tel")%>" size="21"></font></td>
</tr>
<tr>
<td width="128" height="1"><font size="2" face="Arial">Fax :</font></td>
<td width="470" height="1"><font size="2" face="Arial"><input type="text" name="fax" value="<%=request("fax")%>" size="21"></font></td>
</tr>
<tr>
<td width="128" height="1"><font size="2" face="Arial">Fonction :</font></td>
<td width="470" height="1"><font size="2" face="Arial"><select name="fonction" size="1">
<option <%if request("fonction")="communication" then%><%="selected"%><%end if%>value="Communication">Communication</option>
<option value="DG">DG</option>
<option value="Finance">Finance</option>
<option value="Marketing">Marketing</option>
<option value="Informatique">Informatique</option>
<option value="Autres">Autres</option>
</select></font></td>
</tr>
<tr>
<td width="128" height="1"><font size="2" face="Arial">Secteur d'activité :</font></td>
<td width="470" height="1"><font size="2" face="Arial"><input type="text" name="secteur" value="<%=request("secteur")%>" size="21"></font></td>
</tr>
<tr>
<td width="128" height="1"><font size="2" face="Arial">Adresse :</font></td>
<td width="470" height="1"><font size="2" face="Arial"><input type="text" name="adresse" value="<%=request("adresse")%>" size="21"></font></td>
</tr>
<tr>
<td width="128" height="1"><font size="2" face="Arial">Code Postal :</font></td>
<td width="470" height="1"><font size="2" face="Arial"><input type="text" name="cp" value="<%=request("cp")%>" size="21"></font></td>
</tr>
<tr>
<td width="128" height="1"><font size="2" face="Arial">Ville :</font></td>
<td width="470" height="1"><font size="2" face="Arial"><input type="text" name="ville" value="<%=request("ville")%>" size="10"></font></td>
</tr>
<tr>
<td width="128" height="1"><font size="2" face="Arial">Pays :</font></td>
<td width="470" height="1"><font size="2" face="Arial"><input type="text" name="pays" value="<%=request("pays")%>" size="21"></font></td>
</tr>
<tr>
<td width="128" height="1"> </td>
<td width="470" height="1">
<p><font size="2" face="Arial">
<%if request("action")="Envoyer" then
response.write ("<a href=contacts.asp>Retourner sur la page precedente.</a>")
else %>
<input type="submit" value="Envoyer" name="action">
<input type="reset" value="Rétablir" name="B2">
  
<i>Les champs marqués d'un * sont obligatoires. </i>
<%end if%>
</font></p>
</td>
</tr>
<tr>
<td width="128" height="3"><font size="2" face="Arial">   </font></td>
<td width="470" height="3"> </td>
</tr>
<tr>
<td width="598" height="39" colspan="2"><font face="Arial" size="2">Informations légales :<br>
En application de l'article L27 de la loi du 6 janvier 1978 relative à l'informatique, aux fichiers et aux libertés, vous disposez d'un droit d'accès et de rectification sur toute information vous concernant en vous adressant à notre siège social. Les informations requises sont nécessaires au traitement de votre demande. <br>
Elles pourront être cédées à des organismes extérieurs, sauf si vous décochez la case ci-contre :<input type="checkbox" name="diffusion" value="oui" <%if request("action")="envoyer" then%><%if request("diffusion")="" then%><%else%>checked<%end if%><%else%>checked<%end if%>></font></td>
</tr>
</form>
<tr>
<td width="598" height="1" colspan="2"><font size="2" face="Arial"> </font></td>
</tr>
<tr>
<td width="598" height="1" colspan="2"><font size="2" face="Arial">Vous désirez :<br>
Recevoir une documentation : <a href="contacts.asp">Cliquez ici
</a><br>
Rejoindre nos équipes : <a href="cv.htm">Espace recrutement</a><br>
Nous contacter : <a href="mailto:g2j.com?subject=G2J.com, Question.&body=">Cliquez
ici</a></font></td>
</tr>
</table>
</div>

</body>

</html>
oui oui je vous l'avais dit il est long

dc ma question serait de savoir comment faire pr faire une page.html qui fonctionne!!! et m'expliquer la prog car compds rin!!!

merci d'avance
Stéph celle qui galère ac son site...