ASP + mySQL .. Skicka vykort!

radiomgMedlem sedan okt. 200218 inlägg

Frågan18 aug. 2008 20:29#1

Hello.. itter och filar på vårt script men får inte till det, är ingen kodare och kan inte mycket så nu ber jag om er hjälp, vore väldigt tacksam!

Case "mess_card"
%>

<%BoxStart 560,"Skicka vykort till "&strProfileMemberName ,3
intI = intVykort 
intX=1
do until intI = 0
%>
<a href="user.asp?u=mess_card_send&userid=<%=intProfileId%>&card=<%=intI%>"><img src="../_gfx/vykort/<%=intI%>.jpg" width="270" border="0"></a>&nbsp;
<%If intX = 2 Then 
intX=0
response.write "<br>"
End If
intX = intX+1
intI = intI-1
Loop

BoxEnd
Case "mess_card_send"
If NOT cLng(intUserId) = cLng(intProfileId) Then
strFlirt = "[card]"& request.querystring("card") &"[/card]"
objCon2.Execute("INSERT INTO dbd_memb_mess (mess_text,mess_topic,mess_fromid,mess_forid,mess_time) values('"& strFlirt &"','Du har fått ett Vykort!','"& intUserId &"','"& intProfileId &"',current_timestamp)")
BoxStart 560,"Skicka vykort till "&strProfileMemberName ,3
response.write "Ditt vykort är nu skickat!"
BoxEnd
Set rs3 = objCon2.Execute("Select count(mess_id) from dbd_memb_mess WHERE mess_saved='false' AND mess_forid= "& intProfileId &"")

aa=rs3(0)
aa=clng("0" & aa)
	If aa > 150 Then
		Set rs2 = objCon2.Execute("Select mess_id from dbd_memb_mess WHERE mess_forid = "& intProfileId &" ORDER BY mess_id LIMIT 1")
		If NOT rs2.EOF Then
		objCon2.Execute("DELETE FROM dbd_memb_mess WHERE mess_id = "& rs2(0) &"")
		End If
		rs2.Close:Set rs2=Nothing
	End If
	rs3.Close:Set rs3=Nothing
End If
Case "mess"
%>

Denna koden gör så medlemmen kan skicka vykort till varandra. Hur fixar man så personen kan lägga till egen text?
Går det dessutom göra om denna koden så man kan välja om personen vill skicka det som medlemsvykort eller vanligt vykort (epost)..

Tacksam för svar/hjälp!

SaschMedlem sedan nov. 2002830 inlägg

20 aug. 2008 11:25#2

Men det borde väl gå att lösas med en select när man skriver meddelandet på vykortet...

Vill du skicka brevet som:
<select name="sendAs">
<option value="0" selected="selected"> - Välj - </option>
<option value="1"> Medlemsvykort </option>
<option value="2"> Epost </option>
</select>

Om Epost, skriv  epostadress (annars skriv användarnamn):
<input type="text" name="SendTo" value="" />

....

<%
 If Request.Form("sendAs") = "1" Then
  strUser = SafeSQL(Request.Form("SendTo"))

  ' leta upp medlem att skicka till, hittar inte - ge felmeddelande
  ' Skicka till medlem/ar
 Elseif Request.Form("sendAs") = "2" Then
  '   Validera sendTo fältet
  '   om korrekt skicka, annars ge felmeddelande
  Else
      ' ge felmeddelande om att man måste välja korrekt metod att skicka som
  End IF
%>