udbyt navn med tlf-nummer!

Den følgende kode er en sms-sender.

Jeg har modificeret koden så modtagerens nummer automatisk bliver indsat i sms-formen, men hvis modtageren ikke ønsker at få vist sit nummer bliver deres navn indsat istedet.

Desværre er sms-senderen ikke kodet til at bearbejde et navn i stedet for et nummer.

Det jeg ønsker er at, hvis der står et navn i sms-formen skal ASP'en gå ind i databasen og finde det rigtige nummer og indsætte det i stedet. Den tricky del er dog at, ASP'en ikke skal benytte modtagerens navn til at finde nummeret, da flere personer jo kan hedde det samme, men istedet skal den bruge modtagerens email.

Det er desværre uden for mine programmeringsevner på nuværende tidspunkt, derfor håber jeg på lidt hjælp herinde fra!


Håber jeg har gjort det forståeligt, ellers spørg!

<%
  Set myConn = Server.CreateObject("ADODB.Connection")
  myConn.Open "DSN=Nyt_DSN"
 
  'Modtagerens info hentes i databasen
  SQLperson = "SELECT * FROM PersonTabel WHERE Email='" & Request("id1") & "' "
  Set rs = myConn.Execute(SQLperson)

'Hvis modtageren ønsker at få vist sit nummer, indsættes det, ellers bliver navnet indsat
if rs("vismobil") = "ja" then
vis = rs("mobilnr")
else
vis = rs("fornavn") & " " & + rs("efternavn")
end if
%>


</head>
<body class="background">
<%
' Hvis formen ikke er submittet vises formular
If Request.Form("nummer") = "" Then
%>

 
<h1 class="text">Send SMS-besked</h1>

  <form action="<% =Request.Servervariables("SCRIPT_NAME") %>" method="post">
  <label for="t1" class="text">Modtagerens mobilnummer:</label><br />
  <input size="20" type="text" name="nummer" id="t1" value="<%=vis%>" /><br />
  <label for="t2" class="text">Dit navn, e-mail eller nummer:</label>
<br />
    <input size="20" type="text" name="afsender" id="t2"
    onkeyup="updatetegntilbage(this.form)"
    onchange="updatetegntilbage(this.form)"
    onkeypress="updatetegntilbage(this.form)" />
<br>

  <label for="t3" class="text">Besked:</label><br />
  <textarea name="besked" rows="5" id="t3" cols="30"
    onkeyup="updatetegntilbage(this.form)"   
    onchange="updatetegntilbage(this.form)"
    onkeypress="updatetegntilbage(this.form)"></textarea><br />
  <span class="text">
  <input type="text" name="tegntilbage" size="3" value="160"
  onfocus="blur()" id="t4" />
  anslag tilbage</span><br />

  <input type="submit" value="Send besked" />
  </form>

<%
' Ellers sendes SMS
Else


  ' Fjern alle mellemrum i mobilnummeret
  intNummer  =  Replace(Request.Form("nummer")," ","")

  ' Endelser for de enkelte udbydere
  strMobilix  =  "@sms.mobilix.dk"
  strSonofon  =  "@note.sonofon.dk"
  strTelia    =  "@gsm1800.telia.dk"
  strTDC      =  "@sms.tdm.dk"
  strTelefona =  "@sms.tdm.dk"

  ' De første 4 cifre af nummeret til at bestemme udbyder
  int4cifre  = int(left(intNummer,4))

...osv osv!


På forhånd tak!

-Mescalito