<% function CCFormatDateTime(byVal dtmDate) dim strDate dim strTmp if (IsNull(dtmDate)) then CCFormatDateTime = null exit function end if strTmp = Trim(CStr(month(dtmDate))) if (len(strTmp) < 2) then strTmp = "0" + strTmp end if strDate = Trim(CStr(year(dtmDate))) & strTmp strTmp = Trim(CStr(day(dtmDate))) if (len(strTmp) < 2) then strTmp = "0" + strTmp end if strDate = strDate & strTmp strTmp = Trim(CStr(hour(dtmDate))) if (len(strTmp) < 2) then strTmp = "0" + strTmp end if strDate = strDate & strTmp strTmp = Trim(CStr(minute(dtmDate))) if (len(strTmp) < 2) then strTmp = "0" + strTmp end if strDate = strDate & strTmp strTmp = Trim(CStr(second(dtmDate))) if (len(strTmp) < 2) then strTmp = "0" + strTmp end if strDate = strDate & strTmp CCFormatDateTime = "A" & strDate & ".000" end function function generateOrderID() dim strResult dim n strResult = trim(CStr(Int(Rnd * 9999) + 1)) n = Len(strResult) if (n < 4) then strResult = String(4 - n, "0") & strResult end if generateOrderID = mid(CCFormatDateTime(Now), 2, 14) & strResult end function Set mbConfig = Server.CreateObject("CyberCashMCK.MessageBlock") mbConfig.Add "CCPS_HOST", "http://cr.cybercash.com/cgi-bin/cr21api.cgi/return" mbConfig.Add "CYBERCASH_ID", "your-cybercahs-id" mbConfig.Add "MERCHANT_KEY", "your-merchant-key" Set mbRequest = Server.CreateObject("CyberCashMCK.MessageBlock") mbRequest.Add "order-id", "199909211403317055" mbRequest.Add "amount", "usd 49.95" mbRequest.Add "card-number", "4111111111111111" mbRequest.Add "card-exp", "1/00" Set socket = Server.CreateObject("CyberCashMCK.socket.1") Set mbResponse = Server.CreateObject("CyberCashMCK.MessageBlock") On Error Resume Next Set mbResponse = socket.SendMessageBlock(mbConfig, mbRequest) On Error Goto 0 %> <% if Err.Number = 0 Then Response.Write mbResponse.Write(1) else Response.Write Err.Description end if %>