<%
ID = Request.QueryString("ID")
Set RS = Server.CreateObject("ADODB.Recordset")
SQL = "SELECT * FROM medlemmer WHERE ((medlemmer.ID) = " & ID & ")"
RS.Open SQL, cStrMedlem, 3, 3
PAdresse = RS("PostAdresse")
PPostnr = RS("PPostNr")
PPoststed = RS("PPostSted")
BAdresse = RS("BesoksAdresse")
BPostnr = RS("BPostNr")
BPoststed = RS("BPostSted")
If Trim(BAdresse) ="" or ucase(BAdresse)= "SAMME" then BAdresse = PAdresse
If Trim(BPostnr) ="" then BPostnr = PPostnr
If Trim(BPoststed) ="" then BPoststed = PPoststed
BBesok = BAdresse & "
" & BPostnr & " " & BPoststed
PPost = PAdresse & "
" & PPostnr & " " & PPoststed
KAdresse= BAdresse & ", " & BPostnr & " " & BPoststed
%>
<%
RS.Close
Set RS = Nothing
%>